Mercurial > emacs
annotate src/msdos.c @ 108035:98d289f97679
get rid of "unix" pre-defined macro when preprocessing Makefile
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 22 Apr 2010 09:10:30 +0900 |
parents | 32691d6c973c |
children | 06c34f190db1 |
rev | line source |
---|---|
19871
847fbc8725a9
Switch to raw-text as coding system.
Richard M. Stallman <rms@gnu.org>
parents:
19864
diff
changeset
|
1 /* MS-DOS specific C utilities. -*- coding: raw-text -*- |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
2 Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, |
106815 | 3 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
79759 | 4 Free Software Foundation, Inc. |
5503 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
8 GNU Emacs is free software: you can redistribute it and/or modify |
5503 | 9 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
10 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
11 (at your option) any later version. |
5503 | 12 |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92280
diff
changeset
|
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
5503 | 20 |
7666
13a977e6777a
(dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents:
7523
diff
changeset
|
21 /* Contributed by Morten Welinder */ |
13179 | 22 /* New display, keyboard, and mouse control by Kim F. Storm */ |
7666
13a977e6777a
(dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents:
7523
diff
changeset
|
23 |
5503 | 24 /* Note: some of the stuff here was taken from end of sysdep.c in demacs. */ |
25 | |
5980 | 26 #include <config.h> |
5503 | 27 |
28 #ifdef MSDOS | |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
103114
diff
changeset
|
29 #include <setjmp.h> |
5503 | 30 #include "lisp.h" |
31 #include <stdio.h> | |
32 #include <stdlib.h> | |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
33 #include <time.h> |
5503 | 34 #include <sys/param.h> |
35 #include <sys/time.h> | |
36 #include <dos.h> | |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
37 #include <errno.h> |
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 */ |
55292
d9dc976b92ba
(top-level): Add "#pragma pack(0)" after <dir.h>, to
Eli Zaretskii <eliz@gnu.org>
parents:
55198
diff
changeset
|
42 #pragma pack(0) /* dir.h does a pack(4), which isn't GCC's default */ |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
43 #include <fcntl.h> |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
44 #include <io.h> /* for setmode */ |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
45 #include <dpmi.h> /* for __dpmi_xxx stuff */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
46 #include <sys/farptr.h> /* for _farsetsel, _farnspokeb */ |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
47 #include <libc/dosio.h> /* for _USE_LFN */ |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
48 #include <conio.h> /* for cputs */ |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
49 |
5503 | 50 #include "msdos.h" |
51 #include "systime.h" | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
52 #include "frame.h" |
5503 | 53 #include "termhooks.h" |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
54 #include "termchar.h" |
9572 | 55 #include "dispextern.h" |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
56 #include "dosfns.h" |
9572 | 57 #include "termopts.h" |
88351
aac41b50c875
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43371
diff
changeset
|
58 #include "character.h" |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
59 #include "coding.h" |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
60 #include "disptab.h" |
9572 | 61 #include "window.h" |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
62 #include "buffer.h" |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
63 #include "commands.h" |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
64 #include "blockinput.h" |
30711 | 65 #include "keyboard.h" |
52308
00e2bb6c6d5b
Include intervals.h, since STRING_INTERVALS requires that.
Eli Zaretskii <eliz@gnu.org>
parents:
51571
diff
changeset
|
66 #include "intervals.h" |
5503 | 67 #include <go32.h> |
68 #include <pc.h> | |
69 #include <ctype.h> | |
70 /* #include <process.h> */ | |
71 /* Damn that local process.h! Instead we can define P_WAIT ourselves. */ | |
72 #define P_WAIT 1 | |
73 | |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
74 #ifndef _USE_LFN |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
75 #define _USE_LFN 0 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
76 #endif |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
77 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
78 #ifndef _dos_ds |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
79 #define _dos_ds _go32_info_block.selector_for_linear_memory |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
80 #endif |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
81 |
14999 | 82 #include <signal.h> |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
83 #include "syssignal.h" |
14999 | 84 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
85 #ifndef SYSTEM_MALLOC |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
86 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
87 #ifdef GNU_MALLOC |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
88 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
89 /* If other `malloc' than ours is used, force our `sbrk' behave like |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
90 Unix programs expect (resize memory blocks to keep them contiguous). |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
91 If `sbrk' from `ralloc.c' is NOT used, also zero-out sbrk'ed memory, |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
92 because that's what `gmalloc' expects to get. */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
93 #include <crt0.h> |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
94 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
95 #ifdef REL_ALLOC |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
96 int _crt0_startup_flags = _CRT0_FLAG_UNIX_SBRK; |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
97 #else /* not REL_ALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
98 int _crt0_startup_flags = (_CRT0_FLAG_UNIX_SBRK | _CRT0_FLAG_FILL_SBRK_MEMORY); |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
99 #endif /* not REL_ALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
100 #endif /* GNU_MALLOC */ |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
101 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
102 #endif /* not SYSTEM_MALLOC */ |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
103 |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
104 static unsigned long |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
105 event_timestamp () |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
106 { |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
107 struct time t; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
108 unsigned long s; |
45332 | 109 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
110 gettime (&t); |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
111 s = t.ti_min; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
112 s *= 60; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
113 s += t.ti_sec; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
114 s *= 1000; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
115 s += t.ti_hund * 10; |
45332 | 116 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
117 return s; |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
118 } |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
119 |
13179 | 120 |
121 /* ------------------------ Mouse control --------------------------- | |
122 * | |
123 * Coordinates are in screen positions and zero based. | |
124 * Mouse buttons are numbered from left to right and also zero based. | |
125 */ | |
5503 | 126 |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
127 /* This used to be in termhooks.h, but mainstream Emacs code no longer |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
128 uses it, and it was removed... */ |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
129 #define NUM_MOUSE_BUTTONS (5) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
130 |
13179 | 131 int have_mouse; /* 0: no, 1: enabled, -1: disabled */ |
132 static int mouse_visible; | |
5503 | 133 |
13179 | 134 static int mouse_last_x; |
135 static int mouse_last_y; | |
5503 | 136 |
13179 | 137 static int mouse_button_translate[NUM_MOUSE_BUTTONS]; |
138 static int mouse_button_count; | |
5503 | 139 |
13179 | 140 void |
141 mouse_on () | |
142 { | |
143 union REGS regs; | |
5503 | 144 |
13179 | 145 if (have_mouse > 0 && !mouse_visible) |
146 { | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
147 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
148 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
149 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
150 fprintf (tty->termscript, "<M_ON>"); |
13179 | 151 regs.x.ax = 0x0001; |
152 int86 (0x33, ®s, ®s); | |
153 mouse_visible = 1; | |
5503 | 154 } |
155 } | |
156 | |
13179 | 157 void |
158 mouse_off () | |
5503 | 159 { |
13179 | 160 union REGS regs; |
5503 | 161 |
13179 | 162 if (have_mouse > 0 && mouse_visible) |
5503 | 163 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
164 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
165 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
166 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
167 fprintf (tty->termscript, "<M_OFF>"); |
13179 | 168 regs.x.ax = 0x0002; |
169 int86 (0x33, ®s, ®s); | |
170 mouse_visible = 0; | |
5503 | 171 } |
172 } | |
173 | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
174 static void |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
175 mouse_setup_buttons (int n_buttons) |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
176 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
177 if (n_buttons == 3) |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
178 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
179 mouse_button_count = 3; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
180 mouse_button_translate[0] = 0; /* Left */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
181 mouse_button_translate[1] = 2; /* Middle */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
182 mouse_button_translate[2] = 1; /* Right */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
183 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
184 else /* two, what else? */ |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
185 { |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
186 mouse_button_count = 2; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
187 mouse_button_translate[0] = 0; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
188 mouse_button_translate[1] = 1; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
189 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
190 } |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
191 |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
192 DEFUN ("msdos-set-mouse-buttons", Fmsdos_set_mouse_buttons, Smsdos_set_mouse_buttons, |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
193 1, 1, "NSet number of mouse buttons to: ", |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
194 doc: /* Set the number of mouse buttons to use by Emacs. |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
195 This is useful with mice that report the number of buttons inconsistently, |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
196 e.g., if the number of buttons is reported as 3, but Emacs only sees 2 of |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
197 them. This happens with wheeled mice on Windows 9X, for example. */) |
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
198 (nbuttons) |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
199 Lisp_Object nbuttons; |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
200 { |
34561
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
201 int n; |
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
202 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40082
diff
changeset
|
203 CHECK_NUMBER (nbuttons); |
34561
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
204 n = XINT (nbuttons); |
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
205 if (n < 2 || n > 3) |
71986
de36a2bee064
(Fmsdos_set_mouse_buttons): Use xsignal2.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
206 xsignal2 (Qargs_out_of_range, |
de36a2bee064
(Fmsdos_set_mouse_buttons): Use xsignal2.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
207 build_string ("only 2 or 3 mouse buttons are supported"), |
de36a2bee064
(Fmsdos_set_mouse_buttons): Use xsignal2.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
208 nbuttons); |
34561
62530d6f561d
(Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents:
34483
diff
changeset
|
209 mouse_setup_buttons (n); |
30532
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
210 return Qnil; |
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 |
328993ad6017
(Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents:
30529
diff
changeset
|
213 static void |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
214 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
|
215 { |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
216 union REGS regs; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
217 |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
218 regs.x.ax = 0x0003; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
219 int86 (0x33, ®s, ®s); |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
220 *x = regs.x.cx / 8; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
221 *y = regs.x.dx / 8; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
222 } |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
223 |
5503 | 224 void |
13179 | 225 mouse_moveto (x, y) |
226 int x, y; | |
5503 | 227 { |
13179 | 228 union REGS regs; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
229 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
230 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
231 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
232 fprintf (tty->termscript, "<M_XY=%dx%d>", x, y); |
13179 | 233 regs.x.ax = 0x0004; |
234 mouse_last_x = regs.x.cx = x * 8; | |
235 mouse_last_y = regs.x.dx = y * 8; | |
236 int86 (0x33, ®s, ®s); | |
5503 | 237 } |
238 | |
13179 | 239 static int |
240 mouse_pressed (b, xp, yp) | |
241 int b, *xp, *yp; | |
242 { | |
243 union REGS regs; | |
244 | |
245 if (b >= mouse_button_count) | |
246 return 0; | |
247 regs.x.ax = 0x0005; | |
248 regs.x.bx = mouse_button_translate[b]; | |
249 int86 (0x33, ®s, ®s); | |
250 if (regs.x.bx) | |
251 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; | |
252 return (regs.x.bx != 0); | |
253 } | |
254 | |
255 static int | |
256 mouse_released (b, xp, yp) | |
257 int b, *xp, *yp; | |
258 { | |
259 union REGS regs; | |
260 | |
261 if (b >= mouse_button_count) | |
262 return 0; | |
263 regs.x.ax = 0x0006; | |
264 regs.x.bx = mouse_button_translate[b]; | |
265 int86 (0x33, ®s, ®s); | |
266 if (regs.x.bx) | |
267 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; | |
268 return (regs.x.bx != 0); | |
269 } | |
270 | |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
271 static int |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
272 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
|
273 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
|
274 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
275 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
|
276 |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
277 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
|
278 return 0; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
279 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
|
280 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
|
281 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
|
282 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
283 *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
|
284 *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
|
285 return 1; |
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 return 0; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
288 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
289 |
13179 | 290 void |
291 mouse_get_pos (f, insist, bar_window, part, x, y, time) | |
292 FRAME_PTR *f; | |
293 int insist; | |
294 Lisp_Object *bar_window, *x, *y; | |
295 enum scroll_bar_part *part; | |
296 unsigned long *time; | |
297 { | |
298 int ix, iy; | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
299 Lisp_Object frame, tail; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
300 |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
301 /* 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
|
302 FOR_EACH_FRAME (tail, frame) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
303 XFRAME (frame)->mouse_moved = 0; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
304 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
305 *f = SELECTED_FRAME(); |
13179 | 306 *bar_window = Qnil; |
307 mouse_get_xy (&ix, &iy); | |
308 *time = event_timestamp (); | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
309 *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
|
310 *y = make_number (mouse_last_y = iy); |
13179 | 311 } |
312 | |
313 static void | |
314 mouse_check_moved () | |
315 { | |
316 int x, y; | |
317 | |
318 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
|
319 SELECTED_FRAME()->mouse_moved |= (x != mouse_last_x || y != mouse_last_y); |
13179 | 320 mouse_last_x = x; |
321 mouse_last_y = y; | |
5503 | 322 } |
323 | |
30711 | 324 /* Force the mouse driver to ``forget'' about any button clicks until |
325 now. */ | |
326 static void | |
327 mouse_clear_clicks (void) | |
328 { | |
329 int b; | |
330 | |
331 for (b = 0; b < mouse_button_count; b++) | |
332 { | |
333 int dummy_x, dummy_y; | |
334 | |
335 (void) mouse_pressed (b, &dummy_x, &dummy_y); | |
336 (void) mouse_released (b, &dummy_x, &dummy_y); | |
337 } | |
338 } | |
339 | |
13179 | 340 void |
341 mouse_init () | |
5503 | 342 { |
13179 | 343 union REGS regs; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
344 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
345 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
346 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
347 fprintf (tty->termscript, "<M_INIT>"); |
13179 | 348 |
349 regs.x.ax = 0x0021; | |
350 int86 (0x33, ®s, ®s); | |
351 | |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
352 /* 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
|
353 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
|
354 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
|
355 window just before Emacs was started from that window. */ |
30711 | 356 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
|
357 |
13179 | 358 regs.x.ax = 0x0007; |
359 regs.x.cx = 0; | |
360 regs.x.dx = 8 * (ScreenCols () - 1); | |
361 int86 (0x33, ®s, ®s); | |
362 | |
363 regs.x.ax = 0x0008; | |
364 regs.x.cx = 0; | |
365 regs.x.dx = 8 * (ScreenRows () - 1); | |
366 int86 (0x33, ®s, ®s); | |
367 | |
368 mouse_moveto (0, 0); | |
369 mouse_visible = 0; | |
370 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
371 |
13179 | 372 /* ------------------------- Screen control ---------------------- |
373 * | |
374 */ | |
5503 | 375 |
13179 | 376 static int internal_terminal = 0; |
377 | |
378 #ifndef HAVE_X_WINDOWS | |
379 extern unsigned char ScreenAttrib; | |
380 static int screen_face; | |
381 | |
382 static int screen_size_X; | |
383 static int screen_size_Y; | |
384 static int screen_size; | |
385 | |
386 static int current_pos_X; | |
387 static int current_pos_Y; | |
388 static int new_pos_X; | |
389 static int new_pos_Y; | |
390 | |
391 static void *startup_screen_buffer; | |
392 static int startup_screen_size_X; | |
393 static int startup_screen_size_Y; | |
394 static int startup_pos_X; | |
395 static int startup_pos_Y; | |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
396 static unsigned char startup_screen_attrib; |
13179 | 397 |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
398 static clock_t startup_time; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
399 |
13179 | 400 static int term_setup_done; |
401 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
402 static unsigned short outside_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
403 |
13179 | 404 /* Similar to the_only_frame. */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
405 struct tty_display_info the_only_display_info; |
13179 | 406 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
407 /* 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
|
408 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
|
409 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
410 /* 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
|
411 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
|
412 /* 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
|
413 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
|
414 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
|
415 /* 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
|
416 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
|
417 |
53187
7ba9466a0ed8
(Qcursor_type, Qbar, Qhbar): Declare extern.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
418 extern Lisp_Object Qcursor_type; |
7ba9466a0ed8
(Qcursor_type, Qbar, Qhbar): Declare extern.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
419 extern Lisp_Object Qbar, Qhbar; |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
420 |
49381 | 421 /* The screen colors of the current frame, which serve as the default |
41406
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
422 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
|
423 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
|
424 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
425 /* 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
|
426 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
|
427 static void |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
428 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
|
429 { |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
430 __dpmi_regs regs; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
431 |
28932
f8b0ac62f238
Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents:
28553
diff
changeset
|
432 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
|
433 return; |
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
434 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
435 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
|
436 regs.x.es = screen_virtual_segment; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
437 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
|
438 regs.x.cx = count; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
439 __dpmi_int (0x10, ®s); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
440 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
441 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
442 static void |
13179 | 443 dos_direct_output (y, x, buf, len) |
45332 | 444 int x, y; |
13179 | 445 char *buf; |
446 int len; | |
5503 | 447 { |
21489
a1a2beb0a09c
(dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents:
21415
diff
changeset
|
448 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
|
449 int t = t0 + (int) ScreenPrimary; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
450 int l0 = len; |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
451 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
452 /* This is faster. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
453 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
|
454 _farnspokeb (t, *buf); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
455 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
456 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
457 dosv_refresh_virtual_screen (t0, l0); |
13179 | 458 } |
459 #endif | |
460 | |
461 #ifndef HAVE_X_WINDOWS | |
462 | |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
463 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
|
464 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
465 /* Enable bright background colors. */ |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
466 static void |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
467 bright_bg (void) |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
468 { |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
469 union REGS regs; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
470 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
471 /* 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
|
472 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
|
473 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
|
474 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
|
475 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
476 regs.h.bl = 0; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
477 regs.x.ax = 0x1003; |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
478 int86 (0x10, ®s, ®s); |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
479 } |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
480 |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
481 /* 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
|
482 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
|
483 static void |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
484 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
|
485 { |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
486 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
|
487 { |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
488 union REGS regs; |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
489 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
490 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
|
491 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
|
492 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
|
493 } |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
494 } |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
495 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
496 /* 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
|
497 static int |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
498 vga_installed (void) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
499 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
500 union REGS regs; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
501 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
502 regs.x.ax = 0x1a00; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
503 int86 (0x10, ®s, ®s); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
504 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
|
505 return 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
506 return 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
507 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
508 |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
509 /* 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
|
510 ROWS x COLS frame. */ |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
511 |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
512 void |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
513 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
|
514 int *rows, *cols; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
515 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
516 char video_name[30]; |
45332 | 517 union REGS regs; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
518 Lisp_Object video_mode; |
45332 | 519 int video_mode_value, have_vga = 0; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
520 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
|
521 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
522 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
|
523 return; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
524 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
525 mouse_off (); |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
526 have_vga = vga_installed (); |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
527 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
528 /* 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
|
529 use that mode. */ |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
530 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
|
531 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
|
532 Qnil))-> value; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
533 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
534 if (INTEGERP (video_mode) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
535 && (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
|
536 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
537 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
|
538 int86 (0x10, ®s, ®s); |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
539 |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
540 if (have_mouse) |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
541 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
542 /* 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
|
543 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
|
544 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
|
545 regs.x.ax = 0; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
546 int86 (0x33, ®s, ®s); |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
547 } |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
548 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
549 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
550 /* 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
|
551 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
|
552 else |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
553 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
554 static struct { |
45332 | 555 int rows, need_vga; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
556 } std_dimension[] = { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
557 {25, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
558 {28, 1}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
559 {35, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
560 {40, 1}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
561 {43, 0}, |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
562 {50, 1} |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
563 }; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
564 int i = 0; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
565 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
566 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
|
567 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
568 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
|
569 && std_dimension[i].rows >= *rows) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
570 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
571 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
|
572 || *cols != current_cols) |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
573 _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
|
574 break; |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
575 } |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
576 i++; |
14284
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
577 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
578 } |
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 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
581 if (have_mouse) |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
582 { |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
583 mouse_init (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
584 mouse_on (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
585 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
586 |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
587 /* 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
|
588 *rows = ScreenRows (); |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
589 *cols = ScreenCols (); |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
590 |
32730
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
591 /* Update Emacs' notion of screen dimensions. */ |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
592 screen_size_X = *cols; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
593 screen_size_Y = *rows; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
594 screen_size = *cols * *rows; |
5d98418d7b78
(dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents:
32546
diff
changeset
|
595 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
596 /* 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
|
597 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
|
598 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
599 struct frame *f = SELECTED_FRAME(); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
600 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
601 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
|
602 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
603 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
|
604 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
605 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
|
606 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
|
607 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
|
608 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
609 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
610 |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
611 /* Enable bright background colors. */ |
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
612 bright_bg (); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
613 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
614 /* 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
|
615 be defensive anyway. */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
616 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
617 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
|
618 } |
0eaecdc13142
(dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents:
14279
diff
changeset
|
619 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
620 /* 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
|
621 the mouse cursor may need to be refreshed. */ |
7744
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
622 |
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
623 static void |
13179 | 624 mouse_off_maybe () |
7744
da18793f532d
(output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7667
diff
changeset
|
625 { |
13179 | 626 int x, y; |
45332 | 627 |
13179 | 628 if (!mouse_visible) |
629 return; | |
45332 | 630 |
13179 | 631 mouse_get_xy (&x, &y); |
632 if (y != new_pos_Y || x < new_pos_X) | |
633 return; | |
45332 | 634 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
635 mouse_off (); |
9572 | 636 } |
637 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
638 #define DEFAULT_CURSOR_START (-1) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
639 #define DEFAULT_CURSOR_WIDTH (-1) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
640 #define BOX_CURSOR_WIDTH (-32) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
641 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
642 /* 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
|
643 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
|
644 of the character cell, starting from zero. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
645 static void |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
646 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
|
647 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
648 unsigned desired_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
649 __dpmi_regs regs; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
650 int max_line, top_line, bot_line; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
651 struct tty_display_info *tty = FRAME_TTY (f); |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
652 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
653 /* 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
|
654 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
|
655 frame. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
656 if (f && f != SELECTED_FRAME()) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
657 return; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
658 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
659 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
660 fprintf (tty->termscript, "\nCURSOR SHAPE=(%d,%d)", start_line, width); |
57048
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
661 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
662 /* 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
|
663 BIOS data area. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
664 max_line = _farpeekw (_dos_ds, 0x485) - 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
665 switch (max_line) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
666 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
667 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
|
668 case 7: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
669 bot_line = 7; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
670 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
671 case 9: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
672 bot_line = 9; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
673 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
674 case 13: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
675 bot_line = 12; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
676 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
677 case 15: |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
678 bot_line = 14; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
679 break; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
680 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
681 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
682 if (width < 0) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
683 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
684 if (width == BOX_CURSOR_WIDTH) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
685 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
686 top_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
687 bot_line = max_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
688 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
689 else if (start_line != DEFAULT_CURSOR_START) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
690 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
691 top_line = start_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
692 bot_line = top_line - width - 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
693 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
694 else if (width != DEFAULT_CURSOR_WIDTH) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
695 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
696 top_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
697 bot_line = -1 - width; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
698 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
699 else |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
700 top_line = bot_line + 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
701 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
702 else if (width == 0) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
703 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
704 /* [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
|
705 top_line = 31; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
706 bot_line = 0; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
707 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
708 else /* WIDTH is positive */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
709 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
710 if (start_line != DEFAULT_CURSOR_START) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
711 bot_line = start_line; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
712 top_line = bot_line - (width - 1); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
713 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
714 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
715 /* 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
|
716 history here. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
717 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
|
718 if (desired_cursor == _farpeekw (_dos_ds, 0x460)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
719 return; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
720 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
721 regs.h.ah = 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
722 regs.x.cx = desired_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
723 __dpmi_int (0x10, ®s); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
724 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
725 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
726 static void |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
727 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
|
728 { |
44695 | 729 if (EQ (cursor_type, Qbar) || EQ (cursor_type, Qhbar)) |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
730 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
731 /* 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
|
732 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
|
733 } |
44695 | 734 else if (CONSP (cursor_type) |
735 && (EQ (XCAR (cursor_type), Qbar) | |
736 || EQ (XCAR (cursor_type), Qhbar))) | |
28092
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 Lisp_Object bar_parms = XCDR (cursor_type); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
739 int width; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
740 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
741 if (INTEGERP (bar_parms)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
742 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
743 /* 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
|
744 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
|
745 width = XINT (bar_parms); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
746 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
|
747 width); |
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 else if (CONSP (bar_parms) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
750 && INTEGERP (XCAR (bar_parms)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
751 && INTEGERP (XCDR (bar_parms))) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
752 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
753 int start_line = XINT (XCDR (bar_parms)); |
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 width = XINT (XCAR (bar_parms)); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
756 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
|
757 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
758 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
759 else |
57048
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
760 { |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
761 /* Treat anything unknown as "box cursor". This includes nil, so |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
762 that a frame which doesn't specify a cursor type gets a box, |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
763 which is the default in Emacs. */ |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
764 msdos_set_cursor_shape (f, 0, BOX_CURSOR_WIDTH); |
79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
Eli Zaretskii <eliz@gnu.org>
parents:
56729
diff
changeset
|
765 } |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
766 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
767 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
768 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
769 IT_ring_bell (struct frame *f) |
9572 | 770 { |
771 if (visible_bell) | |
772 { | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
773 mouse_off (); |
13179 | 774 ScreenVisualBell (); |
9572 | 775 } |
776 else | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
777 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
778 union REGS inregs, outregs; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
779 inregs.h.ah = 2; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
780 inregs.h.dl = 7; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
781 intdos (&inregs, &outregs); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
782 } |
9572 | 783 } |
784 | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
785 /* 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
|
786 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
|
787 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
|
788 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
|
789 the video RAM. */ |
9572 | 790 static void |
791 IT_set_face (int face) | |
792 { | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
793 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
|
794 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
|
795 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
|
796 unsigned long fg, bg, dflt_fg, dflt_bg; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
797 struct tty_display_info *tty = FRAME_TTY (sf); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
798 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
799 if (!fp) |
25214
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
800 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
801 fp = dfp; |
25214
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
802 /* 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
|
803 cached. */ |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
804 if (!fp) |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
805 abort (); |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
806 } |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
807 screen_face = face; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
808 fg = fp->foreground; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
809 bg = fp->background; |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
810 dflt_fg = dfp->foreground; |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
811 dflt_bg = dfp->background; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
812 |
40082
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
813 /* 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
|
814 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
|
815 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
|
816 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
|
817 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
|
818 fg = FRAME_FOREGROUND_PIXEL (sf); |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
819 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
|
820 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
|
821 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
|
822 bg = FRAME_BACKGROUND_PIXEL (sf); |
26902
264b83a3a688
Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents:
26729
diff
changeset
|
823 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
|
824 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
|
825 |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
826 /* 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
|
827 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
|
828 { |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
829 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
|
830 |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
831 fg = bg; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
832 bg = tem; |
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
833 } |
34676
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
834 /* If the user requested inverse video, obey. */ |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
835 if (inverse_video) |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
836 { |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
837 unsigned long tem2 = fg; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
838 |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
839 fg = bg; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
840 bg = tem2; |
fbd6630ebdaa
(IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents:
34657
diff
changeset
|
841 } |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
842 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
843 fprintf (tty->termscript, "<FACE %d: %d/%d[FG:%d/BG:%d]>", face, |
40082
0eaf29d6544e
(IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents:
38314
diff
changeset
|
844 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
|
845 if (fg >= 0 && fg < 16) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
846 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
847 ScreenAttrib &= 0xf0; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
848 ScreenAttrib |= fg; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
849 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
850 if (bg >= 0 && bg < 16) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
851 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
852 ScreenAttrib &= 0x0f; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
853 ScreenAttrib |= ((bg & 0x0f) << 4); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
854 } |
9572 | 855 } |
856 | |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
857 /* According to RBIL (INTERRUP.A, V-1000), 160 is the maximum possible |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
858 width of a DOS display in any known text mode. We multiply by 2 to |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
859 accomodate the screen attribute byte. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
860 #define MAX_SCREEN_BUF 160*2 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
861 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
862 Lisp_Object Vdos_unsupported_char_glyph; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
863 extern unsigned char *encode_terminal_code (struct glyph *, int, |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
864 struct coding_system *); |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
865 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
866 IT_write_glyphs (struct frame *f, struct glyph *str, int str_len) |
9572 | 867 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
868 unsigned char screen_buf[MAX_SCREEN_BUF], *screen_bp, *bp; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
869 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
|
870 register int sl = str_len; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
871 struct tty_display_info *tty = FRAME_TTY (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
872 struct frame *sf; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
873 unsigned char *conversion_buffer; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
874 |
24001
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
875 /* 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
|
876 multibyte? */ |
fce0e760c4ab
(IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents:
23971
diff
changeset
|
877 int convert_unibyte_characters |
24678
56fe3cae0f96
(unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents:
24593
diff
changeset
|
878 = (NILP (current_buffer->enable_multibyte_characters) |
56fe3cae0f96
(unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents:
24593
diff
changeset
|
879 && 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
|
880 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
881 /* If terminal_coding does any conversion, use it, otherwise use |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
882 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
883 because it always returns 1 if terminal_coding.src_multibyte is 1. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
884 struct coding_system *coding = FRAME_TERMINAL_CODING (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
885 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
886 if (!(coding->common_flags & CODING_REQUIRE_ENCODING_MASK)) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
887 coding = &safe_terminal_coding; |
30835
45f168392f57
(IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents:
30826
diff
changeset
|
888 |
26946
9e0e23a92539
(IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents:
26902
diff
changeset
|
889 if (str_len <= 0) return; |
45332 | 890 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
891 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
|
892 |
acfe5b9d7233
(IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents:
25110
diff
changeset
|
893 /* 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
|
894 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
|
895 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
|
896 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
|
897 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
|
898 IT_set_face (DEFAULT_FACE_ID); |
45332 | 899 |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
900 /* 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
|
901 the tail. */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
902 coding->mode &= ~CODING_MODE_LAST_BLOCK; |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
903 screen_bp = &screen_buf[0]; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
904 while (sl > 0) |
9572 | 905 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
906 int cf; |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
907 int n; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
908 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
909 /* If the face of this glyph is different from the current |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
910 screen face, update the screen attribute byte. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
911 cf = str->face_id; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
912 if (cf != screen_face) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
913 IT_set_face (cf); /* handles invalid faces gracefully */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
914 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
915 /* Identify a run of glyphs with the same face. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
916 for (n = 1; n < sl; ++n) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
917 if (str[n].face_id != cf) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
918 break; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
919 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
920 if (n >= sl) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
921 /* This is the last glyph. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
922 coding->mode |= CODING_MODE_LAST_BLOCK; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
923 |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
924 conversion_buffer = encode_terminal_code (str, n, coding); |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
925 if (coding->produced > 0) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
926 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
927 /* Copy the encoded bytes to the screen buffer. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
928 for (bp = conversion_buffer; coding->produced--; bp++) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
929 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
930 /* Paranoia: discard bytes that would overrun the end of |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
931 the screen buffer. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
932 if (screen_bp - screen_buf <= MAX_SCREEN_BUF - 2) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
933 { |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
934 *screen_bp++ = (unsigned char)*bp; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
935 *screen_bp++ = ScreenAttrib; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
936 } |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
937 if (tty->termscript) |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
938 fputc (*bp, tty->termscript); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
939 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
940 } |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
941 /* Update STR and its remaining length. */ |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
942 str += n; |
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
943 sl -= n; |
9572 | 944 } |
13179 | 945 |
102034
bebfd771aaeb
(MAX_SCREEN_BUF): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
101658
diff
changeset
|
946 /* Dump whatever we have in the screen buffer. */ |
13179 | 947 mouse_off_maybe (); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
948 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
|
949 if (screen_virtual_segment) |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
950 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
|
951 new_pos_X += (screen_bp - screen_buf) / 2; |
9572 | 952 } |
953 | |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
954 /************************************************************************ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
955 Mouse Highlight (and friends..) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
956 ************************************************************************/ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
957 |
44359
ff9f7aee02c8
Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents:
44337
diff
changeset
|
958 /* Last window where we saw the mouse. Used by mouse-autoselect-window. */ |
43363
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
959 static Lisp_Object last_mouse_window; |
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
960 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
961 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
|
962 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
963 /* 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
|
964 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
|
965 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
966 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
|
967 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
968 /* 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
|
969 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
|
970 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
|
971 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
|
972 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
|
973 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
|
974 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
975 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
976 /* 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
|
977 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
|
978 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
979 show_mouse_face (struct tty_display_info *dpyinfo, int hl) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
980 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
981 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
|
982 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
|
983 int i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
984 struct face *fp; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
985 struct tty_display_info *tty = FRAME_TTY (f); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
986 |
45332 | 987 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
988 /* 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
|
989 doing anything. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
990 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
|
991 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
992 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
993 /* 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
|
994 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
|
995 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
|
996 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
997 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
998 /* 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
|
999 if (hl > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1000 { |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
1001 if (dpyinfo->mouse_face_hidden) |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
1002 goto set_cursor_shape; |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
1003 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1004 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
|
1005 if (!fp) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1006 goto set_cursor_shape; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1007 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1008 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1009 /* 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
|
1010 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
|
1011 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
|
1012 i++) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1013 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1014 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
|
1015 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
|
1016 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1017 /* 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
|
1018 if (!row->enabled_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1019 continue; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1020 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1021 /* 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
|
1022 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
|
1023 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
|
1024 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1025 start_hpos = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1026 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1027 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
|
1028 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
|
1029 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1030 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
|
1031 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1032 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
|
1033 continue; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1034 /* 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
|
1035 mouse-face. */ |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1036 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
|
1037 if (hl > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1038 { |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1039 int vpos = row->y + WINDOW_TOP_EDGE_Y (w); |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1040 int kstart = start_hpos + WINDOW_LEFT_EDGE_X (w); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1041 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
|
1042 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
|
1043 int start_offset = offset; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1044 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1045 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1046 fprintf (tty->termscript, "\n<MH+ %d-%d:%d>", |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1047 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
|
1048 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1049 mouse_off (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1050 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
|
1051 /* 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
|
1052 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
|
1053 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
|
1054 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
|
1055 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
|
1056 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
|
1057 _farsetsel (_dos_ds); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1058 while (nglyphs--) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1059 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1060 _farnspokeb (offset, ScreenAttrib); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1061 offset += 2; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1062 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1063 if (screen_virtual_segment) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1064 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
|
1065 mouse_on (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1066 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1067 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1068 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1069 /* 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
|
1070 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
|
1071 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
|
1072 behind our back. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1073 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
|
1074 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
|
1075 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1076 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
|
1077 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
|
1078 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1079 /* 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
|
1080 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
|
1081 the highlight region. */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1082 new_pos_X = start_hpos + WINDOW_LEFT_EDGE_X (w); |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1083 new_pos_Y = row->y + WINDOW_TOP_EDGE_Y (w); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1084 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1085 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1086 fprintf (tty->termscript, "<MH- %d-%d:%d>", |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1087 new_pos_X, new_pos_X + nglyphs - 1, new_pos_Y); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1088 IT_write_glyphs (f, row->glyphs[TEXT_AREA] + start_hpos, nglyphs); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1089 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1090 fputs ("\n", tty->termscript); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1091 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
|
1092 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
|
1093 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1094 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1095 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1096 set_cursor_shape: |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1097 /* 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
|
1098 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
|
1099 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1100 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1101 /* 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
|
1102 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
|
1103 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1104 clear_mouse_face (struct tty_display_info *dpyinfo) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1105 { |
54730
c33e4ac43939
(clear_mouse_face): Only clear mouse highlight if not hidden.
Kim F. Storm <storm@cua.dk>
parents:
53187
diff
changeset
|
1106 if (!dpyinfo->mouse_face_hidden && ! NILP (dpyinfo->mouse_face_window)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1107 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
|
1108 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1109 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
|
1110 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
|
1111 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
|
1112 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1113 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1114 /* 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
|
1115 *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
|
1116 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
|
1117 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
|
1118 static int |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1119 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
|
1120 { |
45332 | 1121 int i, lastcol, line_start_position, maybe_next_line_p = 0; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1122 int yb = window_text_bottom_y (w); |
45332 | 1123 struct glyph_row *row = MATRIX_ROW (w->current_matrix, 0), *best_row = row; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1124 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1125 while (row->y < yb) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1126 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1127 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
|
1128 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
|
1129 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1130 line_start_position = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1131 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1132 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
|
1133 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1134 /* 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
|
1135 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
|
1136 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
|
1137 && 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
|
1138 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1139 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
|
1140 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1141 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1142 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
|
1143 best_row = row; |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1144 |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1145 /* 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
|
1146 never-never land... */ |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1147 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
|
1148 break; |
45332 | 1149 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1150 ++row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1151 } |
45332 | 1152 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1153 /* 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
|
1154 lastcol = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1155 row = best_row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1156 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
|
1157 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1158 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
|
1159 int charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1160 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1161 charpos = glyph->charpos; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1162 if (charpos == pos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1163 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1164 *hpos = i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1165 *vpos = row->y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1166 return 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1167 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1168 else if (charpos > pos) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1169 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1170 else if (charpos > 0) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1171 lastcol = i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1172 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1173 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1174 /* 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
|
1175 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
|
1176 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
|
1177 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
|
1178 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1179 ++row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1180 lastcol = 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1181 } |
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 *vpos = row->y; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1184 *hpos = lastcol + 1; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1185 return 0; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1186 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1187 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1188 /* 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
|
1189 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
|
1190 mode line. X is relative to the start of the text display area of |
41122 | 1191 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
|
1192 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
|
1193 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1194 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
|
1195 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1196 struct frame *f = XFRAME (w->frame); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1197 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1198 struct glyph_row *row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1199 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1200 if (mode_line_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1201 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
|
1202 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1203 row = MATRIX_HEADER_LINE_ROW (w->current_matrix); |
45332 | 1204 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1205 if (row->enabled_p) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1206 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1207 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
|
1208 struct glyph *glyph, *end; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1209 Lisp_Object help, map; |
45332 | 1210 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1211 /* Find the glyph under X. */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1212 glyph = (row->glyphs[TEXT_AREA] |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1213 + x |
52315 | 1214 /* in case someone implements scroll bars some day... */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1215 - WINDOW_LEFT_SCROLL_BAR_AREA_WIDTH (w)); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1216 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
|
1217 if (glyph < end |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1218 && STRINGP (glyph->object) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
1219 && STRING_INTERVALS (glyph->object) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1220 && glyph->charpos >= 0 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
1221 && glyph->charpos < SCHARS (glyph->object)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1222 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1223 /* 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
|
1224 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
|
1225 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
|
1226 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
|
1227 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
|
1228 if (!NILP (help)) |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1229 { |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1230 help_echo_string = help; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1231 XSETWINDOW (help_echo_window, w); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1232 help_echo_object = glyph->object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1233 help_echo_pos = glyph->charpos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1234 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1235 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1236 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1237 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1238 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1239 /* 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
|
1240 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
|
1241 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
|
1242 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
|
1243 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1244 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
|
1245 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1246 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1247 enum window_part part = ON_NOTHING; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1248 Lisp_Object window; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1249 struct window *w; |
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 /* 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
|
1252 if (mouse_preempted) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1253 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1254 |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
1255 if (NILP (Vmouse_highlight) |
28008
5b87cdbef5a8
(IT_note_mouse_highlight): Return immediately if frame's
Eli Zaretskii <eliz@gnu.org>
parents:
27775
diff
changeset
|
1256 || !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
|
1257 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1258 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1259 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
|
1260 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
|
1261 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
|
1262 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1263 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
|
1264 return; |
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 (gc_in_progress) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1267 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1268 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
|
1269 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1270 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1271 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1272 /* Which window is that in? */ |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1273 window = window_from_coordinates (f, x, y, &part, &x, &y, 0); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1274 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1275 /* 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
|
1276 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
|
1277 clear_mouse_face (dpyinfo); |
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 /* 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
|
1280 if (!WINDOWP (window)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1281 return; |
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 /* 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
|
1284 w = XWINDOW (window); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1285 |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1286 if (part == ON_MODE_LINE || part == ON_HEADER_LINE) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1287 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1288 /* Mouse is on the mode or top line. */ |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1289 IT_note_mode_line_highlight (w, x, part == ON_MODE_LINE); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1290 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1291 } |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1292 |
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1293 IT_set_mouse_pointer (0); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1294 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1295 /* 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
|
1296 And verify the buffer's text has not changed. */ |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1297 if (part == ON_TEXT |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1298 && 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
|
1299 && 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
|
1300 && (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
|
1301 == 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
|
1302 { |
45332 | 1303 int pos, i, nrows = w->current_matrix->nrows; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1304 struct glyph_row *row; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1305 struct glyph *glyph; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1306 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1307 /* 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
|
1308 glyph = NULL; |
34483
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1309 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
|
1310 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1311 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
|
1312 /* 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
|
1313 not enabled. */ |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1314 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
|
1315 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
|
1316 break; |
eccf7d43bead
(fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents:
32730
diff
changeset
|
1317 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
|
1318 && row->displays_text_p |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1319 && 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
|
1320 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1321 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
|
1322 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
|
1323 glyph = NULL; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1324 else |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1325 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1326 glyph += x; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1327 if (!BUFFERP (glyph->object)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1328 glyph = NULL; |
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 } |
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 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1333 /* 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
|
1334 if (glyph == NULL) |
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_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1337 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1338 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1339 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1340 if (!BUFFERP (glyph->object)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1341 abort (); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1342 pos = glyph->charpos; |
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 /* 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
|
1345 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1346 extern Lisp_Object Qmouse_face; |
45332 | 1347 Lisp_Object mouse_face, overlay, position, *overlay_vec; |
77906
a33e69b10eed
(getdefdir): Delete stray semicolon.
Chong Yidong <cyd@stupidchicken.com>
parents:
75348
diff
changeset
|
1348 int noverlays, obegv, ozv; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1349 struct buffer *obuf; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1350 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1351 /* 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
|
1352 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
|
1353 return; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1354 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1355 /* 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
|
1356 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
|
1357 obuf = current_buffer; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1358 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
|
1359 obegv = BEGV; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1360 ozv = ZV; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1361 BEGV = BEG; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1362 ZV = Z; |
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 /* 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
|
1365 XSETINT (position, pos); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1366 |
55650
c8d69f7304ee
(IT_note_mouse_highlight): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents:
55292
diff
changeset
|
1367 /* Put all the overlays we want in a vector in overlay_vec. */ |
c8d69f7304ee
(IT_note_mouse_highlight): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents:
55292
diff
changeset
|
1368 GET_OVERLAYS_AT (pos, overlay_vec, noverlays, NULL, 0); |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1369 /* 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
|
1370 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
|
1371 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1372 /* Check mouse-face highlighting. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1373 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
|
1374 && 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
|
1375 && 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
|
1376 && (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
|
1377 || 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
|
1378 && (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
|
1379 || 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
|
1380 || 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
|
1381 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1382 /* 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
|
1383 clear_mouse_face (dpyinfo); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1384 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1385 /* 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
|
1386 overlay = Qnil; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1387 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
|
1388 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1389 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
|
1390 if (!NILP (mouse_face)) |
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 overlay = overlay_vec[i]; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1393 break; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1394 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1395 } |
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 /* 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
|
1398 if (NILP (overlay)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1399 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
|
1400 w->buffer); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1401 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1402 /* Handle the overlay case. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1403 if (! NILP (overlay)) |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1404 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1405 /* 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
|
1406 should be active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1407 Lisp_Object before, after; |
92237
ce06567a933d
* dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1408 EMACS_INT ignore; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1409 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1410 before = Foverlay_start (overlay); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1411 after = Foverlay_end (overlay); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1412 /* 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
|
1413 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
|
1414 &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
|
1415 &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
|
1416 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
|
1417 = !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
|
1418 &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
|
1419 &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
|
1420 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
|
1421 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
|
1422 = face_at_buffer_position (w, pos, 0, 0, |
48026
d876c83f972b
(IT_note_mouse_highlight): Don't use mouse-face if hidden.
Kim F. Storm <storm@cua.dk>
parents:
46954
diff
changeset
|
1423 &ignore, pos + 1, |
103114
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1424 !dpyinfo->mouse_face_hidden, |
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1425 -1); |
27019
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 /* Display it as active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1428 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
|
1429 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1430 /* 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
|
1431 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
|
1432 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1433 /* 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
|
1434 should be active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1435 Lisp_Object before, after, beginning, end; |
92237
ce06567a933d
* dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
1436 EMACS_INT ignore; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1437 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1438 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
|
1439 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
|
1440 - 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
|
1441 before |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1442 = 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
|
1443 Qmouse_face, |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1444 w->buffer, beginning); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1445 after |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1446 = 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
|
1447 w->buffer, end); |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1448 /* 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
|
1449 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
|
1450 &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
|
1451 &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
|
1452 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
|
1453 = !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
|
1454 &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
|
1455 &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
|
1456 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
|
1457 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
|
1458 = face_at_buffer_position (w, pos, 0, 0, |
48026
d876c83f972b
(IT_note_mouse_highlight): Don't use mouse-face if hidden.
Kim F. Storm <storm@cua.dk>
parents:
46954
diff
changeset
|
1459 &ignore, pos + 1, |
103114
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1460 !dpyinfo->mouse_face_hidden, |
fa8e2c663118
* xfaces.c (face_at_buffer_position): New arg base_face_id.
Chong Yidong <cyd@stupidchicken.com>
parents:
102034
diff
changeset
|
1461 -1); |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1462 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1463 /* Display it as active. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1464 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
|
1465 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1466 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1467 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1468 /* 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
|
1469 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1470 Lisp_Object help; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1471 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
|
1472 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1473 /* Check overlays first. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1474 help = Qnil; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1475 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
|
1476 { |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1477 overlay = overlay_vec[i]; |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1478 help = Foverlay_get (overlay, Qhelp_echo); |
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1479 } |
45332 | 1480 |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1481 if (!NILP (help)) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1482 { |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1483 help_echo_string = help; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1484 help_echo_window = window; |
30381
ace34a073127
(IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents:
30341
diff
changeset
|
1485 help_echo_object = overlay; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1486 help_echo_pos = pos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1487 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1488 /* Try text properties. */ |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1489 else if (NILP (help) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1490 && ((STRINGP (glyph->object) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1491 && glyph->charpos >= 0 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
1492 && glyph->charpos < SCHARS (glyph->object)) |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1493 || (BUFFERP (glyph->object) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1494 && glyph->charpos >= BEGV |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1495 && glyph->charpos < ZV))) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1496 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1497 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
|
1498 Qhelp_echo, glyph->object); |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1499 if (!NILP (help)) |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1500 { |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
1501 help_echo_string = help; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1502 help_echo_window = window; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1503 help_echo_object = glyph->object; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1504 help_echo_pos = glyph->charpos; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1505 } |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
1506 } |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1507 } |
45332 | 1508 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1509 BEGV = obegv; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1510 ZV = ozv; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1511 current_buffer = obuf; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1512 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1513 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1514 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1515 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1516 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1517 IT_clear_end_of_line (struct frame *f, int first_unused) |
9572 | 1518 { |
13179 | 1519 char *spaces, *sp; |
45332 | 1520 int i, j, offset = 2 * (new_pos_X + screen_size_X * new_pos_Y); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1521 extern int fatal_error_in_progress; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1522 struct tty_display_info *tty = FRAME_TTY (f); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1523 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1524 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
|
1525 return; |
13179 | 1526 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
1527 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
|
1528 i = (j = first_unused - new_pos_X) * 2; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1529 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1530 fprintf (tty->termscript, "<CLR:EOL[%d..%d)>", new_pos_X, first_unused); |
13179 | 1531 spaces = sp = alloca (i); |
45332 | 1532 |
13179 | 1533 while (--j >= 0) |
1534 { | |
1535 *sp++ = ' '; | |
1536 *sp++ = ScreenAttrib; | |
1537 } | |
1538 | |
1539 mouse_off_maybe (); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1540 dosmemput (spaces, i, (int)ScreenPrimary + offset); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1541 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1542 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
|
1543 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1544 /* 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
|
1545 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
|
1546 new_pos_X = first_unused; |
13179 | 1547 } |
1548 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1549 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1550 IT_clear_screen (struct frame *f) |
13179 | 1551 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1552 struct tty_display_info *tty = FRAME_TTY (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1553 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1554 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1555 fprintf (tty->termscript, "<CLR:SCR>"); |
41406
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1556 /* 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
|
1557 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
|
1558 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
|
1559 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
|
1560 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
|
1561 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
|
1562 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
|
1563 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
|
1564 else |
9ba7c0fd50b7
(IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents:
41122
diff
changeset
|
1565 IT_set_face (0); |
13179 | 1566 mouse_off (); |
1567 ScreenClear (); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1568 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1569 dosv_refresh_virtual_screen (0, screen_size); |
13179 | 1570 new_pos_X = new_pos_Y = 0; |
1571 } | |
1572 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1573 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1574 IT_clear_to_end (struct frame *f) |
13179 | 1575 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1576 struct tty_display_info *tty = FRAME_TTY (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1577 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1578 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1579 fprintf (tty->termscript, "<CLR:EOS>"); |
13179 | 1580 |
1581 while (new_pos_Y < screen_size_Y) { | |
1582 new_pos_X = 0; | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1583 IT_clear_end_of_line (f, screen_size_X); |
13179 | 1584 new_pos_Y++; |
1585 } | |
9572 | 1586 } |
1587 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1588 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1589 IT_cursor_to (struct frame *f, int y, int x) |
9572 | 1590 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1591 struct tty_display_info *tty = FRAME_TTY (f); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1592 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1593 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1594 fprintf (tty->termscript, "\n<XY=%dx%d>", x, y); |
13179 | 1595 new_pos_X = x; |
1596 new_pos_Y = y; | |
9572 | 1597 } |
1598 | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1599 static int cursor_cleared; |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1600 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1601 static void |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1602 IT_display_cursor (int on) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1603 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1604 struct tty_display_info *tty = CURTTY (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1605 |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1606 if (on && cursor_cleared) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1607 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1608 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
|
1609 cursor_cleared = 0; |
97871
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1610 if (tty->termscript) |
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1611 fprintf (tty->termscript, "\nCURSOR ON"); |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1612 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1613 else if (!on && !cursor_cleared) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1614 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1615 ScreenSetCursor (-1, -1); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1616 cursor_cleared = 1; |
97871
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1617 if (tty->termscript) |
bc27b61d82f8
(IT_display_cursor): Write "CURSOR ON/OFF" to termscript only when
Eli Zaretskii <eliz@gnu.org>
parents:
97771
diff
changeset
|
1618 fprintf (tty->termscript, "\nCURSOR OFF"); |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1619 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1620 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1621 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1622 /* 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
|
1623 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
|
1624 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
|
1625 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
|
1626 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
|
1627 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
|
1628 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
|
1629 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
|
1630 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
|
1631 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
|
1632 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1633 `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
|
1634 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
|
1635 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
|
1636 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
|
1637 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1638 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
|
1639 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
|
1640 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1641 static void |
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1642 IT_cmgoto (FRAME_PTR f) |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1643 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1644 /* 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
|
1645 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
|
1646 int update_cursor_pos = 1; /* MODIFF == unchanged_modified; */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1647 struct tty_display_info *tty = FRAME_TTY (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1648 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1649 /* 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
|
1650 removed. */ |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1651 #if 0 |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1652 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
|
1653 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1654 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
|
1655 |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1656 /* 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
|
1657 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
|
1658 C-g in the minibuffer. */ |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1659 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
|
1660 previous_pos_X = -1; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1661 /* 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
|
1662 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
|
1663 if (!update_cursor_pos |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
1664 && WINDOW_TOP_EDGE_LINE (XWINDOW (FRAME_MINIBUF_WINDOW (f))) <= new_pos_Y) |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1665 { |
23156
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1666 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
|
1667 |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1668 if (echo_area_glyphs) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1669 { |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1670 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
|
1671 /* 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
|
1672 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
|
1673 of previous cursor position. */ |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1674 if (previous_pos_X == -1) |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1675 ScreenGetCursor (&dummy, &previous_pos_X); |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1676 } |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1677 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
|
1678 { |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1679 /* 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
|
1680 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
|
1681 tem_X = previous_pos_X; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1682 previous_pos_X = -1; |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1683 } |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1684 |
e080ad3cc739
(IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents:
23011
diff
changeset
|
1685 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
|
1686 { |
9b39197e9ecd
(IT_cmgoto): In the echo area, only put the cursor at
Eli Zaretskii <eliz@gnu.org>
parents:
22481
diff
changeset
|
1687 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
|
1688 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
|
1689 } |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1690 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
1691 #endif |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1692 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1693 if (update_cursor_pos |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1694 && (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
|
1695 { |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1696 ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1697 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1698 fprintf (tty->termscript, "\n<CURSOR:%dx%d>", current_pos_X, current_pos_Y); |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1699 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1700 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1701 /* 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
|
1702 IT_display_cursor (1); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1703 |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1704 /* 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
|
1705 keyboard input. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1706 if (!mouse_visible) |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1707 mouse_on (); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1708 } |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
1709 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1710 static void |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1711 IT_update_begin (struct frame *f) |
9572 | 1712 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1713 struct tty_display_info *display_info = FRAME_X_DISPLAY_INFO (f); |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1714 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
|
1715 |
97873
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1716 if (display_info->termscript) |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1717 fprintf (display_info->termscript, "\n\n<UPDATE_BEGIN"); |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1718 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1719 BLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1720 |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1721 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
|
1722 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1723 /* 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
|
1724 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
|
1725 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1726 /* 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
|
1727 highlighting. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1728 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
|
1729 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
|
1730 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1731 /* 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
|
1732 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
|
1733 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
|
1734 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
|
1735 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
|
1736 && 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
|
1737 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1738 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
|
1739 int i; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1740 |
27046
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1741 /* 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
|
1742 (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
|
1743 unconditionally. */ |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1744 if (NILP (w->buffer)) |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1745 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
|
1746 else |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1747 { |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1748 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
|
1749 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
|
1750 && 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
|
1751 break; |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1752 } |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1753 |
872992e41f21
(IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents:
27038
diff
changeset
|
1754 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
|
1755 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
|
1756 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1757 } |
30826
f225a6bd06fc
(IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents:
30725
diff
changeset
|
1758 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
|
1759 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1760 /* 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
|
1761 highlight info. */ |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1762 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
|
1763 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
|
1764 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
|
1765 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
|
1766 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
|
1767 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1768 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1769 UNBLOCK_INPUT; |
13179 | 1770 } |
1771 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1772 static void |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1773 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
|
1774 { |
97873
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1775 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1776 |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1777 if (dpyinfo->termscript) |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1778 fprintf (dpyinfo->termscript, "\n<UPDATE_END\n"); |
a74660c83709
(IT_update_begin, IT_update_end): Add termscript trace.
Eli Zaretskii <eliz@gnu.org>
parents:
97871
diff
changeset
|
1779 dpyinfo->mouse_face_defer = 0; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1780 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1781 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1782 static void |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1783 IT_frame_up_to_date (struct frame *f) |
13179 | 1784 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1785 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1786 Lisp_Object new_cursor, frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1787 struct window *sw; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1788 |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1789 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
|
1790 || (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
|
1791 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1792 BLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1793 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
|
1794 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
|
1795 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
|
1796 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
|
1797 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
|
1798 UNBLOCK_INPUT; |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1799 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1800 |
28553
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1801 /* 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
|
1802 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
|
1803 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
|
1804 frame parameters. For the selected window, we use either its |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1805 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
|
1806 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
|
1807 sw = XWINDOW (f->selected_window); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1808 frame_desired_cursor = Fcdr (Fassq (Qcursor_type, f->param_alist)); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1809 if (cursor_in_echo_area |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1810 && FRAME_HAS_MINIBUF_P (f) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1811 && EQ (FRAME_MINIBUF_WINDOW (f), echo_area_window) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1812 && sw == XWINDOW (echo_area_window)) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1813 new_cursor = frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1814 else |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1815 { |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1816 struct buffer *b = XBUFFER (sw->buffer); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1817 |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1818 if (EQ (b->cursor_type, Qt)) |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1819 new_cursor = frame_desired_cursor; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1820 else if (NILP (b->cursor_type)) /* nil means no cursor */ |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1821 new_cursor = Fcons (Qbar, make_number (0)); |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1822 else |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1823 new_cursor = b->cursor_type; |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1824 } |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1825 |
56d5ca61cfd8
(NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents:
28227
diff
changeset
|
1826 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
|
1827 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
1828 IT_cmgoto (f); /* position cursor when update is done */ |
9572 | 1829 } |
1830 | |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1831 /* 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
|
1832 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
|
1833 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
|
1834 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
|
1835 static void |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1836 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
|
1837 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1838 /* 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
|
1839 conventional memorty selector. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1840 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
|
1841 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
|
1842 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1843 if (from == to || len <= 0) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1844 return; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1845 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1846 _farsetsel (_dos_ds); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1847 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1848 /* 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
|
1849 glyphs non-destructively. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1850 if (from > to) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1851 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1852 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
|
1853 _farnspokew (to, _farnspeekw (from)); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1854 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1855 else |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1856 { |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1857 from += (len - 1) * 2; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1858 to += (len - 1) * 2; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1859 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
|
1860 _farnspokew (to, _farnspeekw (from)); |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1861 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1862 if (screen_virtual_segment) |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1863 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
|
1864 } |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1865 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1866 /* Insert and delete glyphs. */ |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1867 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1868 IT_insert_glyphs (f, start, len) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1869 struct frame *f; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1870 register struct glyph *start; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1871 register int len; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1872 { |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1873 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
|
1874 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1875 /* 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
|
1876 end of this line. */ |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1877 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
|
1878 |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
1879 /* Now write the glyphs to be inserted. */ |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1880 IT_write_glyphs (f, start, len); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1881 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1882 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1883 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1884 IT_delete_glyphs (f, n) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1885 struct frame *f; |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1886 register int n; |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1887 { |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1888 abort (); |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1889 } |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
1890 |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1891 /* 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
|
1892 void |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1893 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
|
1894 struct frame *f; |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1895 Lisp_Object value, oldval; |
9572 | 1896 { |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1897 set_menu_bar_lines (f, value, oldval); |
9572 | 1898 } |
1899 | |
32271
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1900 /* This was copied from xfaces.c */ |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1901 |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1902 extern Lisp_Object Qbackground_color; |
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
1903 extern Lisp_Object Qforeground_color; |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
1904 Lisp_Object Qreverse; |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
1905 extern Lisp_Object Qtitle; |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
1906 |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
1907 /* 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
|
1908 resumed, and whenever the screen is redrawn! */ |
13179 | 1909 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1910 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1911 IT_set_terminal_modes (struct terminal *term) |
13179 | 1912 { |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1913 struct tty_display_info *tty; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1914 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1915 /* If called with initial terminal, it's too early to do anything |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1916 useful. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1917 if (term->type == output_initial) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1918 return; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1919 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1920 tty = term->display_info.tty; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1921 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1922 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1923 fprintf (tty->termscript, "\n<SET_TERM>"); |
13179 | 1924 |
1925 screen_size_X = ScreenCols (); | |
1926 screen_size_Y = ScreenRows (); | |
1927 screen_size = screen_size_X * screen_size_Y; | |
45332 | 1928 |
13179 | 1929 new_pos_X = new_pos_Y = 0; |
1930 current_pos_X = current_pos_Y = -1; | |
1931 | |
1932 if (term_setup_done) | |
1933 return; | |
1934 term_setup_done = 1; | |
45332 | 1935 |
13179 | 1936 startup_screen_size_X = screen_size_X; |
1937 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
|
1938 startup_screen_attrib = ScreenAttrib; |
13179 | 1939 |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1940 /* 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
|
1941 the screen) installed? */ |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1942 { |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1943 unsigned short es_value; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1944 __dpmi_regs regs; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1945 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1946 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
|
1947 if (ScreenPrimary == 0xb0000UL || ScreenPrimary == 0xb8000UL) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1948 regs.x.es = (ScreenPrimary >> 4) & 0xffff; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1949 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
|
1950 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
|
1951 else |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1952 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
|
1953 regs.x.di = 0; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1954 es_value = regs.x.es; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1955 __dpmi_int (0x10, ®s); |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1956 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1957 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
|
1958 { |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
1959 /* 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
|
1960 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
|
1961 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
|
1962 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
|
1963 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
|
1964 screen_old_address = ScreenPrimary; |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1965 screen_virtual_segment = regs.x.es; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1966 screen_virtual_offset = regs.x.di; |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1967 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
|
1968 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1969 } |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
1970 |
13179 | 1971 ScreenGetCursor (&startup_pos_Y, &startup_pos_X); |
1972 ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2)); | |
1973 | |
15341
8a0f5a5937e5
(bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents:
15222
diff
changeset
|
1974 bright_bg (); |
13179 | 1975 } |
1976 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
1977 /* 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
|
1978 suspended or killed. */ |
13179 | 1979 |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
1980 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1981 IT_reset_terminal_modes (struct terminal *term) |
13179 | 1982 { |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1983 int display_row_start = (int) ScreenPrimary; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1984 int saved_row_len = startup_screen_size_X * 2; |
45332 | 1985 int update_row_len = ScreenCols () * 2, current_rows = ScreenRows (); |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1986 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
|
1987 unsigned char *saved_row = startup_screen_buffer; |
45332 | 1988 int cursor_pos_X = ScreenCols () - 1, cursor_pos_Y = ScreenRows () - 1; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1989 struct tty_display_info *tty = term->display_info.tty; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1990 |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1991 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
1992 fprintf (tty->termscript, "\n<RESET_TERM>"); |
13179 | 1993 |
1994 if (!term_setup_done) | |
1995 return; | |
45332 | 1996 |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
1997 mouse_off (); |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
1998 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
1999 /* 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
|
2000 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
|
2001 maybe_enable_blinking (); |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2002 |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2003 /* We have a situation here. |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2004 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
|
2005 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
|
2006 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
|
2007 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
|
2008 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
|
2009 `startup_screen_buffer'. |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2010 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
|
2011 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
|
2012 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
|
2013 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
|
2014 |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2015 ScreenAttrib = startup_screen_attrib; |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2016 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2017 /* 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
|
2018 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
|
2019 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
|
2020 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
|
2021 { |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2022 ScreenClear (); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2023 if (screen_virtual_segment) |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2024 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
|
2025 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2026 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
|
2027 update_row_len = saved_row_len; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2028 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
|
2029 current_rows = startup_screen_size_Y; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2030 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2031 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2032 fprintf (tty->termscript, "<SCREEN RESTORED (dimensions=%dx%d)>\n", |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2033 update_row_len / 2, current_rows); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2034 |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2035 while (current_rows--) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2036 { |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2037 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
|
2038 if (screen_virtual_segment) |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2039 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
|
2040 update_row_len / 2); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2041 saved_row += saved_row_len; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2042 display_row_start += to_next_row; |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
2043 } |
13717
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2044 } |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2045 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
|
2046 cursor_pos_X = startup_pos_X; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2047 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
|
2048 cursor_pos_Y = startup_pos_Y; |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2049 |
d7bb4093a950
(IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents:
13714
diff
changeset
|
2050 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
|
2051 xfree (startup_screen_buffer); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2052 startup_screen_buffer = NULL; |
13179 | 2053 |
2054 term_setup_done = 0; | |
2055 } | |
2056 | |
21785
c7ef8b48a039
(IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents:
21693
diff
changeset
|
2057 static void |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2058 IT_set_terminal_window (struct frame *f, int foo) |
13179 | 2059 { |
2060 } | |
2061 | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2062 /* 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
|
2063 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
|
2064 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
|
2065 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
|
2066 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
|
2067 (frame) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2068 Lisp_Object frame; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2069 { |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2070 struct frame *f; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2071 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40082
diff
changeset
|
2072 CHECK_FRAME (frame); |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2073 f = XFRAME (frame); |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2074 |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2075 /* 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
|
2076 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
|
2077 specified in default-frame-alist, it was already applied, and |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2078 frame colors are reversed. */ |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2079 initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f); |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2080 initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2081 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2082 |
9572 | 2083 void |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2084 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
|
2085 struct frame *f; |
9572 | 2086 Lisp_Object alist; |
2087 { | |
2088 Lisp_Object tail; | |
45332 | 2089 int i, j, length = XINT (Flength (alist)); |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2090 Lisp_Object *parms |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2091 = (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
|
2092 Lisp_Object *values |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2093 = (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
|
2094 /* 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
|
2095 int reverse = EQ (Fcdr (Fassq (Qreverse, f->param_alist)), Qt); |
45332 | 2096 int need_to_reverse, was_reverse = reverse; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2097 int redraw = 0, fg_set = 0, bg_set = 0; |
45332 | 2098 unsigned long orig_fg, orig_bg; |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2099 Lisp_Object frame_bg, frame_fg; |
32337 | 2100 extern Lisp_Object Qdefault, QCforeground, QCbackground; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2101 struct tty_display_info *tty = FRAME_TTY (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2102 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2103 /* 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
|
2104 used for the initial frame. */ |
58012
934f6fb6fd8a
* dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in
Jan Djärv <jan.h.d@swipnet.se>
parents:
57048
diff
changeset
|
2105 if (EQ (alist, Vdefault_frame_alist) |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2106 && 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
|
2107 { |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2108 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
|
2109 FRAME_BACKGROUND_PIXEL (f) = initial_screen_colors[1]; |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2110 init_frame_faces (f); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2111 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2112 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
|
2113 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
|
2114 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
|
2115 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
|
2116 /* 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
|
2117 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
|
2118 Fmake_terminal_frame. */ |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2119 if (NILP (frame_fg)) |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2120 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
|
2121 if (NILP (frame_bg)) |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2122 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
|
2123 |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2124 /* 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
|
2125 i = 0; |
9572 | 2126 for (tail = alist; CONSP (tail); tail = Fcdr (tail)) |
2127 { | |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2128 Lisp_Object elt; |
9572 | 2129 |
2130 elt = Fcar (tail); | |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2131 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
|
2132 CHECK_SYMBOL (parms[i]); |
19293
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2133 values[i] = Fcdr (elt); |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2134 i++; |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2135 } |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2136 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2137 j = i; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2138 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2139 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
|
2140 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2141 Lisp_Object prop, val; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2142 |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2143 prop = parms[i]; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2144 val = values[i]; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2145 |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2146 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
|
2147 reverse = EQ (val, Qt); |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2148 } |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2149 |
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2150 need_to_reverse = reverse && !was_reverse; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2151 if (tty->termscript && need_to_reverse) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2152 fprintf (tty->termscript, "<INVERSE-VIDEO>\n"); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2153 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2154 /* 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
|
2155 for (i--; i >= 0; i--) |
af78882332ed
(IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents:
19287
diff
changeset
|
2156 { |
45332 | 2157 Lisp_Object prop, val, frame; |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2158 |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2159 prop = parms[i]; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2160 val = values[i]; |
9572 | 2161 |
19864
44dcf37ec345
(syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents:
19603
diff
changeset
|
2162 if (EQ (prop, Qforeground_color)) |
9572 | 2163 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2164 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
|
2165 ? LFACE_BACKGROUND_INDEX |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2166 : 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
|
2167 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
|
2168 && 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
|
2169 && new_color != FACE_TTY_DEFAULT_BG_COLOR) |
9572 | 2170 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2171 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
|
2172 /* 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
|
2173 frame is changed as well. */ |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2174 XSETFRAME (frame, f); |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2175 Finternal_set_lisp_face_attribute (Qdefault, QCforeground, |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2176 val, frame); |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2177 fg_set = 1; |
9572 | 2178 redraw = 1; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2179 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2180 fprintf (tty->termscript, "<FGCOLOR %lu>\n", new_color); |
9572 | 2181 } |
2182 } | |
19864
44dcf37ec345
(syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents:
19603
diff
changeset
|
2183 else if (EQ (prop, Qbackground_color)) |
9572 | 2184 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2185 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
|
2186 ? LFACE_FOREGROUND_INDEX |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2187 : 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
|
2188 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
|
2189 && 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
|
2190 && new_color != FACE_TTY_DEFAULT_BG_COLOR) |
9572 | 2191 { |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2192 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
|
2193 /* 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
|
2194 frame is changed as well. */ |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2195 XSETFRAME (frame, f); |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2196 Finternal_set_lisp_face_attribute (Qdefault, QCbackground, |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2197 val, frame); |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2198 bg_set = 1; |
9572 | 2199 redraw = 1; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2200 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2201 fprintf (tty->termscript, "<BGCOLOR %lu>\n", new_color); |
9572 | 2202 } |
2203 } | |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2204 else if (EQ (prop, Qtitle)) |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2205 { |
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2206 x_set_title (f, val); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2207 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2208 fprintf (tty->termscript, "<TITLE: %s>\n", SDATA (val)); |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2209 } |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2210 else if (EQ (prop, Qcursor_type)) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2211 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2212 IT_set_cursor_type (f, val); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2213 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2214 fprintf (tty->termscript, "<CTYPE: %s>\n", |
44695 | 2215 EQ (val, Qbar) || EQ (val, Qhbar) |
2216 || CONSP (val) && (EQ (XCAR (val), Qbar) | |
2217 || EQ (XCAR (val), Qhbar)) | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2218 ? "bar" : "box"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
2219 } |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2220 else if (EQ (prop, Qtty_type)) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2221 { |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2222 internal_terminal_init (); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2223 if (tty->termscript) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2224 fprintf (tty->termscript, "<TERM_INIT done, TTY_TYPE: %.*s>\n", |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2225 SBYTES (val), SDATA (val)); |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2226 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2227 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
|
2228 } |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2229 |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2230 /* 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
|
2231 the current frame colors. */ |
32546
9672c4db6bed
(IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents:
32337
diff
changeset
|
2232 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
|
2233 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2234 Lisp_Object frame; |
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2235 |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2236 if (!fg_set) |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2237 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2238 XSETFRAME (frame, f); |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2239 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
|
2240 tty_color_name (f, orig_bg), |
32337 | 2241 frame); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2242 redraw = 1; |
20036
65c394bb8b17
(mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents:
19871
diff
changeset
|
2243 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2244 if (!bg_set) |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2245 { |
32335
442188fbf8b5
(IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents:
32271
diff
changeset
|
2246 XSETFRAME (frame, f); |
36483
c3734c1b1362
(Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents:
34676
diff
changeset
|
2247 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
|
2248 tty_color_name (f, orig_fg), |
32337 | 2249 frame); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2250 redraw = 1; |
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2251 } |
9572 | 2252 } |
2253 | |
2254 if (redraw) | |
2255 { | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2256 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
|
2257 if (f == SELECTED_FRAME()) |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2258 redraw_frame (f); |
9572 | 2259 } |
2260 } | |
2261 | |
16915
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2262 extern void init_frame_faces (FRAME_PTR); |
8d28d96f6031
(run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents:
16872
diff
changeset
|
2263 |
13179 | 2264 #endif /* !HAVE_X_WINDOWS */ |
9572 | 2265 |
2266 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
2267 /* 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
|
2268 |
5503 | 2269 void |
2270 internal_terminal_init () | |
2271 { | |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2272 static int init_needed = 1; |
45332 | 2273 char *term = getenv ("TERM"), *colors; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2274 struct frame *sf = SELECTED_FRAME(); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2275 struct tty_display_info *tty; |
13179 | 2276 |
9572 | 2277 #ifdef HAVE_X_WINDOWS |
2278 if (!inhibit_window_system) | |
2279 return; | |
2280 #endif | |
2281 | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2282 /* If this is the initial terminal, we are done here. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2283 if (sf->output_method == output_initial) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2284 return; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2285 |
5503 | 2286 internal_terminal |
2287 = (!noninteractive) && term && !strcmp (term, "internal"); | |
9572 | 2288 |
2289 #ifndef HAVE_X_WINDOWS | |
13179 | 2290 if (!internal_terminal || inhibit_window_system) |
9572 | 2291 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2292 sf->output_method = output_termcap; |
13179 | 2293 return; |
2294 } | |
9572 | 2295 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2296 tty = FRAME_TTY (sf); |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2297 current_kboard->Vwindow_system = Qpc; |
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2298 sf->output_method = output_msdos_raw; |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2299 if (init_needed) |
13179 | 2300 { |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2301 if (!tty->termscript && getenv ("EMACSTEST")) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2302 tty->termscript = fopen (getenv ("EMACSTEST"), "wt"); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2303 if (tty->termscript) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2304 { |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2305 time_t now = time (NULL); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2306 struct tm *tnow = localtime (&now); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2307 char tbuf[100]; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2308 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2309 strftime (tbuf, sizeof (tbuf) - 1, "%a %b %e %Y %H:%M:%S %Z", tnow); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2310 fprintf (tty->termscript, "\nEmacs session started at %s\n", tbuf); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2311 fprintf (tty->termscript, "=====================\n\n"); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2312 } |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2313 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2314 Vinitial_window_system = Qpc; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2315 Vwindow_system_version = make_number (23); /* RE Emacs version */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2316 tty->terminal->type = output_msdos_raw; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2317 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2318 /* If Emacs was dumped on DOS/V machine, forget the stale VRAM |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2319 address. */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2320 screen_old_address = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2321 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2322 /* Forget the stale screen colors as well. */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2323 initial_screen_colors[0] = initial_screen_colors[1] = -1; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2324 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2325 FRAME_BACKGROUND_PIXEL (SELECTED_FRAME ()) = 7; /* White */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2326 FRAME_FOREGROUND_PIXEL (SELECTED_FRAME ()) = 0; /* Black */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2327 bright_bg (); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2328 colors = getenv ("EMACSCOLORS"); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2329 if (colors && strlen (colors) >= 2) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2330 { |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2331 /* The colors use 4 bits each (we enable bright background). */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2332 if (isdigit (colors[0])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2333 colors[0] -= '0'; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2334 else if (isxdigit (colors[0])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2335 colors[0] -= (isupper (colors[0]) ? 'A' : 'a') - 10; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2336 if (colors[0] >= 0 && colors[0] < 16) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2337 FRAME_FOREGROUND_PIXEL (SELECTED_FRAME ()) = colors[0]; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2338 if (isdigit (colors[1])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2339 colors[1] -= '0'; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2340 else if (isxdigit (colors[1])) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2341 colors[1] -= (isupper (colors[1]) ? 'A' : 'a') - 10; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2342 if (colors[1] >= 0 && colors[1] < 16) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2343 FRAME_BACKGROUND_PIXEL (SELECTED_FRAME ()) = colors[1]; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2344 } |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2345 the_only_display_info.mouse_face_mouse_frame = NULL; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2346 the_only_display_info.mouse_face_deferred_gc = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2347 the_only_display_info.mouse_face_beg_row = |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2348 the_only_display_info.mouse_face_beg_col = -1; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2349 the_only_display_info.mouse_face_end_row = |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2350 the_only_display_info.mouse_face_end_col = -1; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2351 the_only_display_info.mouse_face_face_id = DEFAULT_FACE_ID; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2352 the_only_display_info.mouse_face_window = Qnil; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2353 the_only_display_info.mouse_face_mouse_x = |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2354 the_only_display_info.mouse_face_mouse_y = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2355 the_only_display_info.mouse_face_defer = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2356 the_only_display_info.mouse_face_hidden = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2357 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2358 if (have_mouse) /* detected in dos_ttraw, which see */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2359 { |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2360 have_mouse = 1; /* enable mouse */ |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2361 mouse_visible = 0; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2362 mouse_setup_buttons (mouse_button_count); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2363 tty->terminal->mouse_position_hook = &mouse_get_pos; |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2364 mouse_init (); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2365 } |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2366 |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2367 if (tty->termscript && screen_size) |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2368 fprintf (tty->termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n", |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2369 screen_size_X, screen_size_Y); |
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2370 |
97771
f8bd5f0db6f3
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
Eli Zaretskii <eliz@gnu.org>
parents:
97736
diff
changeset
|
2371 init_frame_faces (sf); |
97736
926ec8434a52
(internal_terminal_init): Most initializations done only once, especially
Eli Zaretskii <eliz@gnu.org>
parents:
97680
diff
changeset
|
2372 init_needed = 0; |
13179 | 2373 } |
9572 | 2374 #endif |
5503 | 2375 } |
13179 | 2376 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2377 void |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2378 initialize_msdos_display (struct terminal *term) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2379 { |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2380 term->rif = 0; /* we don't support window-based display */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2381 term->cursor_to_hook = term->raw_cursor_to_hook = IT_cursor_to; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2382 term->clear_to_end_hook = IT_clear_to_end; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2383 term->clear_frame_hook = IT_clear_screen; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2384 term->clear_end_of_line_hook = IT_clear_end_of_line; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2385 term->ins_del_lines_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2386 term->insert_glyphs_hook = IT_insert_glyphs; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2387 term->write_glyphs_hook = IT_write_glyphs; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2388 term->delete_glyphs_hook = IT_delete_glyphs; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2389 term->ring_bell_hook = IT_ring_bell; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2390 term->reset_terminal_modes_hook = IT_reset_terminal_modes; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2391 term->set_terminal_modes_hook = IT_set_terminal_modes; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2392 term->set_terminal_window_hook = IT_set_terminal_window; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2393 term->update_begin_hook = IT_update_begin; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2394 term->update_end_hook = IT_update_end; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2395 term->frame_up_to_date_hook = IT_frame_up_to_date; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2396 term->mouse_position_hook = 0; /* set later by dos_ttraw */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2397 term->frame_rehighlight_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2398 term->frame_raise_lower_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2399 term->set_vertical_scroll_bar_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2400 term->condemn_scroll_bars_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2401 term->redeem_scroll_bar_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2402 term->judge_scroll_bars_hook = 0; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2403 term->read_socket_hook = &tty_read_avail_input; /* from keyboard.c */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2404 } |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2405 |
13179 | 2406 dos_get_saved_screen (screen, rows, cols) |
2407 char **screen; | |
2408 int *rows; | |
2409 int *cols; | |
2410 { | |
2411 #ifndef HAVE_X_WINDOWS | |
2412 *screen = startup_screen_buffer; | |
2413 *cols = startup_screen_size_X; | |
2414 *rows = startup_screen_size_Y; | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
2415 return *screen != (char *)0; |
13179 | 2416 #else |
2417 return 0; | |
45332 | 2418 #endif |
13179 | 2419 } |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2420 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2421 #ifndef HAVE_X_WINDOWS |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2422 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2423 /* 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
|
2424 void |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2425 check_x (void) |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2426 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
2427 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
|
2428 error ("Not running under a window system"); |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2429 } |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2430 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2431 #endif |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
2432 |
13274 | 2433 |
13179 | 2434 /* ----------------------- Keyboard control ---------------------- |
2435 * | |
2436 * Keymaps reflect the following keyboard layout: | |
2437 * | |
2438 * 0 1 2 3 4 5 6 7 8 9 10 11 12 BS | |
2439 * TAB 15 16 17 18 19 20 21 22 23 24 25 26 (41) | |
2440 * CLOK 30 31 32 33 34 35 36 37 38 39 40 (41) RET | |
2441 * SH () 45 46 47 48 49 50 51 52 53 54 SHIFT | |
2442 * SPACE | |
2443 */ | |
2444 | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2445 #define Ignore 0x0000 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2446 #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
|
2447 #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
|
2448 #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
|
2449 #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
|
2450 #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
|
2451 #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
|
2452 #define Grey 0x6000 /* Grey keypad key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2453 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2454 #define Alt 0x0100 /* alt scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2455 #define Ctrl 0x0200 /* ctrl scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2456 #define Shift 0x0400 /* shift scan-code */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2457 |
74145 | 2458 static int extended_kbd; /* 101 (102) keyboard present. */ |
13179 | 2459 |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2460 struct kbd_translate { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2461 unsigned char sc; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2462 unsigned char ch; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2463 unsigned short code; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2464 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2465 |
13179 | 2466 struct dos_keyboard_map |
2467 { | |
2468 char *unshifted; | |
2469 char *shifted; | |
2470 char *alt_gr; | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2471 struct kbd_translate *translate_table; |
13179 | 2472 }; |
2473 | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2474 |
13179 | 2475 static struct dos_keyboard_map us_keyboard = { |
2476 /* 0 1 2 3 4 5 */ | |
2477 /* 01234567890123456789012345678901234567890 12345678901234 */ | |
2478 "`1234567890-= qwertyuiop[] asdfghjkl;'\\ zxcvbnm,./ ", | |
2479 /* 0123456789012345678901234567890123456789 012345678901234 */ | |
2480 "~!@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"| ZXCVBNM<>? ", | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2481 0, /* no Alt-Gr key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2482 0 /* no translate table */ |
13179 | 2483 }; |
2484 | |
2485 static struct dos_keyboard_map fr_keyboard = { | |
2486 /* 0 1 2 3 4 5 */ | |
2487 /* 012 3456789012345678901234567890123456789012345678901234 */ | |
2488 "ý&‚\",(-Š_€…)= azertyuiop^$ qsdfghjklm—* wxcvbnm;:! ", | |
2489 /* 0123456789012345678901234567890123456789012345678901234 */ | |
2490 " 1234567890ø+ AZERTYUIOPùœ QSDFGHJKLM%æ WXCVBN?./õ ", | |
2491 /* 01234567 89012345678901234567890123456789012345678901234 */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2492 " ~#{[|`\\^@]} Ï ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2493 0 /* no translate table */ |
13179 | 2494 }; |
2495 | |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2496 /* |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2497 * Italian keyboard support, country code 39. |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2498 * '<' 56:3c*0000 |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2499 * '>' 56:3e*0000 |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2500 * 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
|
2501 * 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
|
2502 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2503 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2504 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
|
2505 { 0x56, 0x3c, Normal | 13 }, |
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2506 { 0x56, 0x3e, Normal | 27 }, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2507 { 0, 0, 0 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2508 }; |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2509 static struct dos_keyboard_map it_keyboard = { |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2510 /* 0 1 2 3 4 5 */ |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2511 /* 0 123456789012345678901234567890123456789012345678901234 */ |
24566
5082c3adfa2f
(dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents:
24560
diff
changeset
|
2512 "\\1234567890'< qwertyuiopŠ+> asdfghjkl•…— zxcvbnm,.- ", |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2513 /* 01 23456789012345678901234567890123456789012345678901234 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2514 "|!\"œ$%&/()=?^> QWERTYUIOP‚* ASDFGHJKL‡øõ ZXCVBNM;:_ ", |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2515 /* 0123456789012345678901234567890123456789012345678901234 */ |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2516 " {}~` [] @# ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2517 it_kbd_translate_table |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2518 }; |
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2519 |
13179 | 2520 static struct dos_keyboard_map dk_keyboard = { |
2521 /* 0 1 2 3 4 5 */ | |
2522 /* 0123456789012345678901234567890123456789012345678901234 */ | |
2523 "«1234567890+| qwertyuiop†~ asdfghjkl‘›' zxcvbnm,.- ", | |
2524 /* 01 23456789012345678901234567890123456789012345678901234 */ | |
2525 "õ!\"#$%&/()=?` QWERTYUIOP^ ASDFGHJKL’* ZXCVBNM;:_ ", | |
2526 /* 0123456789012345678901234567890123456789012345678901234 */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2527 " @œ$ {[]} | ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2528 0 /* no translate table */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2529 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2530 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2531 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
|
2532 { 0x73, 0x5c, Normal | 0 }, |
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2533 { 0x73, 0x5f, Normal | 0 }, |
24593
ffe7dfc452d7
(jp_kbd_translate_table): Fix the other \ key.
Eli Zaretskii <eliz@gnu.org>
parents:
24566
diff
changeset
|
2534 { 0x73, 0x1c, Map | 0 }, |
24560
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2535 { 0x7d, 0x5c, Normal | 13 }, |
bb608cd1af6e
(jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
24559
diff
changeset
|
2536 { 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
|
2537 { 0x7d, 0x1c, Map | 13 }, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2538 { 0, 0, 0 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2539 }; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2540 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
|
2541 /* 0 1 2 3 4 5 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2542 /* 0123456789012 345678901234567890123456789012345678901234 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2543 "\\1234567890-^\\ qwertyuiop@[ asdfghjkl;:] zxcvbnm,./ ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2544 /* 01 23456789012345678901234567890123456789012345678901234 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2545 "_!\"#$%&'()~=~| QWERTYUIOP`{ ASDFGHJKL+*} ZXCVBNM<>? ", |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2546 0, /* no Alt-Gr key */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2547 jp_kbd_translate_table |
13179 | 2548 }; |
2549 | |
2550 static struct keyboard_layout_list | |
2551 { | |
2552 int country_code; | |
2553 struct dos_keyboard_map *keyboard_map; | |
13274 | 2554 } keyboard_layout_list[] = |
2555 { | |
2556 1, &us_keyboard, | |
2557 33, &fr_keyboard, | |
21583
ba75380b39f7
(it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents:
21489
diff
changeset
|
2558 39, &it_keyboard, |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2559 45, &dk_keyboard, |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2560 81, &jp_keyboard |
13179 | 2561 }; |
2562 | |
2563 static struct dos_keyboard_map *keyboard; | |
2564 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
|
2565 static int international_keyboard; |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2566 |
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2567 int |
13179 | 2568 dos_set_keyboard (code, always) |
2569 int code; | |
2570 int always; | |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2571 { |
13179 | 2572 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
|
2573 _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
|
2574 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
2575 /* 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
|
2576 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
|
2577 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
|
2578 regs.x.ax = 0xad80; |
23011
fe3128dafc96
(dos_set_keyboard): Set up stack and flags before
Eli Zaretskii <eliz@gnu.org>
parents:
22992
diff
changeset
|
2579 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
|
2580 _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
|
2581 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
|
2582 international_keyboard = 1; |
13624
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2583 |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2584 /* 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
|
2585 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
|
2586 keyboard_map_all = always; |
47484dd9a970
(dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents:
13520
diff
changeset
|
2587 dos_keyboard_layout = 1; |
45332 | 2588 |
13179 | 2589 for (i = 0; i < (sizeof (keyboard_layout_list)/sizeof (struct keyboard_layout_list)); i++) |
2590 if (code == keyboard_layout_list[i].country_code) | |
2591 { | |
2592 keyboard = keyboard_layout_list[i].keyboard_map; | |
2593 keyboard_map_all = always; | |
2594 dos_keyboard_layout = code; | |
2595 return 1; | |
2596 } | |
7523
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2597 return 0; |
8994727ff976
(gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents:
7507
diff
changeset
|
2598 } |
13274 | 2599 |
13179 | 2600 static struct |
2601 { | |
2602 unsigned char char_code; /* normal code */ | |
2603 unsigned char meta_code; /* M- code */ | |
2604 unsigned char keypad_code; /* keypad code */ | |
2605 unsigned char editkey_code; /* edit key */ | |
2606 } keypad_translate_map[] = { | |
2607 '0', '0', 0xb0, /* kp-0 */ 0x63, /* insert */ | |
2608 '1', '1', 0xb1, /* kp-1 */ 0x57, /* end */ | |
2609 '2', '2', 0xb2, /* kp-2 */ 0x54, /* down */ | |
2610 '3', '3', 0xb3, /* kp-3 */ 0x56, /* next */ | |
2611 '4', '4', 0xb4, /* kp-4 */ 0x51, /* left */ | |
2612 '5', '5', 0xb5, /* kp-5 */ 0xb5, /* kp-5 */ | |
2613 '6', '6', 0xb6, /* kp-6 */ 0x53, /* right */ | |
2614 '7', '7', 0xb7, /* kp-7 */ 0x50, /* home */ | |
2615 '8', '8', 0xb8, /* kp-8 */ 0x52, /* up */ | |
2616 '9', '9', 0xb9, /* kp-9 */ 0x55, /* prior */ | |
2617 '.', '-', 0xae, /* kp-decimal */ 0xff /* delete */ | |
2618 }; | |
2619 | |
2620 static struct | |
2621 { | |
2622 unsigned char char_code; /* normal code */ | |
2623 unsigned char keypad_code; /* keypad code */ | |
2624 } grey_key_translate_map[] = { | |
2625 '/', 0xaf, /* kp-decimal */ | |
2626 '*', 0xaa, /* kp-multiply */ | |
2627 '-', 0xad, /* kp-subtract */ | |
2628 '+', 0xab, /* kp-add */ | |
2629 '\r', 0x8d /* kp-enter */ | |
2630 }; | |
2631 | |
2632 static unsigned short | |
2633 ibmpc_translate_map[] = | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2634 { |
13179 | 2635 /* --------------- 00 to 0f --------------- */ |
2636 Normal | 0xff, /* Ctrl Break + Alt-NNN */ | |
2637 Alt | ModFct | 0x1b, /* Escape */ | |
2638 Normal | 1, /* '1' */ | |
2639 Normal | 2, /* '2' */ | |
2640 Normal | 3, /* '3' */ | |
2641 Normal | 4, /* '4' */ | |
2642 Normal | 5, /* '5' */ | |
2643 Normal | 6, /* '6' */ | |
2644 Normal | 7, /* '7' */ | |
2645 Normal | 8, /* '8' */ | |
2646 Normal | 9, /* '9' */ | |
2647 Normal | 10, /* '0' */ | |
2648 Normal | 11, /* '-' */ | |
2649 Normal | 12, /* '=' */ | |
2650 Special | 0x08, /* Backspace */ | |
2651 ModFct | 0x74, /* Tab/Backtab */ | |
2652 | |
2653 /* --------------- 10 to 1f --------------- */ | |
2654 Map | 15, /* 'q' */ | |
2655 Map | 16, /* 'w' */ | |
2656 Map | 17, /* 'e' */ | |
2657 Map | 18, /* 'r' */ | |
2658 Map | 19, /* 't' */ | |
2659 Map | 20, /* 'y' */ | |
2660 Map | 21, /* 'u' */ | |
2661 Map | 22, /* 'i' */ | |
2662 Map | 23, /* 'o' */ | |
2663 Map | 24, /* 'p' */ | |
2664 Map | 25, /* '[' */ | |
45332 | 2665 Map | 26, /* ']' */ |
13179 | 2666 ModFct | 0x0d, /* Return */ |
2667 Ignore, /* Ctrl */ | |
2668 Map | 30, /* 'a' */ | |
2669 Map | 31, /* 's' */ | |
2670 | |
2671 /* --------------- 20 to 2f --------------- */ | |
2672 Map | 32, /* 'd' */ | |
2673 Map | 33, /* 'f' */ | |
2674 Map | 34, /* 'g' */ | |
2675 Map | 35, /* 'h' */ | |
2676 Map | 36, /* 'j' */ | |
2677 Map | 37, /* 'k' */ | |
2678 Map | 38, /* 'l' */ | |
2679 Map | 39, /* ';' */ | |
2680 Map | 40, /* '\'' */ | |
2681 Map | 0, /* '`' */ | |
2682 Ignore, /* Left shift */ | |
2683 Map | 41, /* '\\' */ | |
2684 Map | 45, /* 'z' */ | |
2685 Map | 46, /* 'x' */ | |
2686 Map | 47, /* 'c' */ | |
2687 Map | 48, /* 'v' */ | |
2688 | |
2689 /* --------------- 30 to 3f --------------- */ | |
2690 Map | 49, /* 'b' */ | |
2691 Map | 50, /* 'n' */ | |
2692 Map | 51, /* 'm' */ | |
2693 Map | 52, /* ',' */ | |
2694 Map | 53, /* '.' */ | |
2695 Map | 54, /* '/' */ | |
2696 Ignore, /* Right shift */ | |
2697 Grey | 1, /* Grey * */ | |
2698 Ignore, /* Alt */ | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
2699 Normal | 55, /* ' ' */ |
13179 | 2700 Ignore, /* Caps Lock */ |
2701 FctKey | 0xbe, /* F1 */ | |
2702 FctKey | 0xbf, /* F2 */ | |
2703 FctKey | 0xc0, /* F3 */ | |
2704 FctKey | 0xc1, /* F4 */ | |
2705 FctKey | 0xc2, /* F5 */ | |
2706 | |
2707 /* --------------- 40 to 4f --------------- */ | |
2708 FctKey | 0xc3, /* F6 */ | |
2709 FctKey | 0xc4, /* F7 */ | |
2710 FctKey | 0xc5, /* F8 */ | |
2711 FctKey | 0xc6, /* F9 */ | |
2712 FctKey | 0xc7, /* F10 */ | |
2713 Ignore, /* Num Lock */ | |
2714 Ignore, /* Scroll Lock */ | |
2715 KeyPad | 7, /* Home */ | |
2716 KeyPad | 8, /* Up */ | |
2717 KeyPad | 9, /* Page Up */ | |
2718 Grey | 2, /* Grey - */ | |
2719 KeyPad | 4, /* Left */ | |
2720 KeyPad | 5, /* Keypad 5 */ | |
2721 KeyPad | 6, /* Right */ | |
2722 Grey | 3, /* Grey + */ | |
2723 KeyPad | 1, /* End */ | |
2724 | |
2725 /* --------------- 50 to 5f --------------- */ | |
2726 KeyPad | 2, /* Down */ | |
2727 KeyPad | 3, /* Page Down */ | |
2728 KeyPad | 0, /* Insert */ | |
2729 KeyPad | 10, /* Delete */ | |
2730 Shift | FctKey | 0xbe, /* (Shift) F1 */ | |
2731 Shift | FctKey | 0xbf, /* (Shift) F2 */ | |
2732 Shift | FctKey | 0xc0, /* (Shift) F3 */ | |
2733 Shift | FctKey | 0xc1, /* (Shift) F4 */ | |
2734 Shift | FctKey | 0xc2, /* (Shift) F5 */ | |
2735 Shift | FctKey | 0xc3, /* (Shift) F6 */ | |
2736 Shift | FctKey | 0xc4, /* (Shift) F7 */ | |
2737 Shift | FctKey | 0xc5, /* (Shift) F8 */ | |
2738 Shift | FctKey | 0xc6, /* (Shift) F9 */ | |
2739 Shift | FctKey | 0xc7, /* (Shift) F10 */ | |
2740 Ctrl | FctKey | 0xbe, /* (Ctrl) F1 */ | |
2741 Ctrl | FctKey | 0xbf, /* (Ctrl) F2 */ | |
13040
169d50e2ee4c
(gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents:
13020
diff
changeset
|
2742 |
13179 | 2743 /* --------------- 60 to 6f --------------- */ |
2744 Ctrl | FctKey | 0xc0, /* (Ctrl) F3 */ | |
2745 Ctrl | FctKey | 0xc1, /* (Ctrl) F4 */ | |
2746 Ctrl | FctKey | 0xc2, /* (Ctrl) F5 */ | |
2747 Ctrl | FctKey | 0xc3, /* (Ctrl) F6 */ | |
2748 Ctrl | FctKey | 0xc4, /* (Ctrl) F7 */ | |
2749 Ctrl | FctKey | 0xc5, /* (Ctrl) F8 */ | |
2750 Ctrl | FctKey | 0xc6, /* (Ctrl) F9 */ | |
2751 Ctrl | FctKey | 0xc7, /* (Ctrl) F10 */ | |
2752 Alt | FctKey | 0xbe, /* (Alt) F1 */ | |
2753 Alt | FctKey | 0xbf, /* (Alt) F2 */ | |
2754 Alt | FctKey | 0xc0, /* (Alt) F3 */ | |
2755 Alt | FctKey | 0xc1, /* (Alt) F4 */ | |
2756 Alt | FctKey | 0xc2, /* (Alt) F5 */ | |
2757 Alt | FctKey | 0xc3, /* (Alt) F6 */ | |
2758 Alt | FctKey | 0xc4, /* (Alt) F7 */ | |
2759 Alt | FctKey | 0xc5, /* (Alt) F8 */ | |
2760 | |
2761 /* --------------- 70 to 7f --------------- */ | |
2762 Alt | FctKey | 0xc6, /* (Alt) F9 */ | |
2763 Alt | FctKey | 0xc7, /* (Alt) F10 */ | |
2764 Ctrl | FctKey | 0x6d, /* (Ctrl) Sys Rq */ | |
2765 Ctrl | KeyPad | 4, /* (Ctrl) Left */ | |
2766 Ctrl | KeyPad | 6, /* (Ctrl) Right */ | |
2767 Ctrl | KeyPad | 1, /* (Ctrl) End */ | |
2768 Ctrl | KeyPad | 3, /* (Ctrl) Page Down */ | |
2769 Ctrl | KeyPad | 7, /* (Ctrl) Home */ | |
2770 Alt | Map | 1, /* '1' */ | |
2771 Alt | Map | 2, /* '2' */ | |
2772 Alt | Map | 3, /* '3' */ | |
2773 Alt | Map | 4, /* '4' */ | |
2774 Alt | Map | 5, /* '5' */ | |
2775 Alt | Map | 6, /* '6' */ | |
2776 Alt | Map | 7, /* '7' */ | |
2777 Alt | Map | 8, /* '8' */ | |
2778 | |
2779 /* --------------- 80 to 8f --------------- */ | |
2780 Alt | Map | 9, /* '9' */ | |
2781 Alt | Map | 10, /* '0' */ | |
2782 Alt | Map | 11, /* '-' */ | |
2783 Alt | Map | 12, /* '=' */ | |
2784 Ctrl | KeyPad | 9, /* (Ctrl) Page Up */ | |
2785 FctKey | 0xc8, /* F11 */ | |
2786 FctKey | 0xc9, /* F12 */ | |
2787 Shift | FctKey | 0xc8, /* (Shift) F11 */ | |
2788 Shift | FctKey | 0xc9, /* (Shift) F12 */ | |
2789 Ctrl | FctKey | 0xc8, /* (Ctrl) F11 */ | |
2790 Ctrl | FctKey | 0xc9, /* (Ctrl) F12 */ | |
2791 Alt | FctKey | 0xc8, /* (Alt) F11 */ | |
2792 Alt | FctKey | 0xc9, /* (Alt) F12 */ | |
2793 Ctrl | KeyPad | 8, /* (Ctrl) Up */ | |
2794 Ctrl | Grey | 2, /* (Ctrl) Grey - */ | |
2795 Ctrl | KeyPad | 5, /* (Ctrl) Keypad 5 */ | |
2796 | |
2797 /* --------------- 90 to 9f --------------- */ | |
2798 Ctrl | Grey | 3, /* (Ctrl) Grey + */ | |
2799 Ctrl | KeyPad | 2, /* (Ctrl) Down */ | |
2800 Ctrl | KeyPad | 0, /* (Ctrl) Insert */ | |
2801 Ctrl | KeyPad | 10, /* (Ctrl) Delete */ | |
2802 Ctrl | FctKey | 0x09, /* (Ctrl) Tab */ | |
2803 Ctrl | Grey | 0, /* (Ctrl) Grey / */ | |
2804 Ctrl | Grey | 1, /* (Ctrl) Grey * */ | |
2805 Alt | FctKey | 0x50, /* (Alt) Home */ | |
2806 Alt | FctKey | 0x52, /* (Alt) Up */ | |
2807 Alt | FctKey | 0x55, /* (Alt) Page Up */ | |
2808 Ignore, /* NO KEY */ | |
2809 Alt | FctKey | 0x51, /* (Alt) Left */ | |
2810 Ignore, /* NO KEY */ | |
2811 Alt | FctKey | 0x53, /* (Alt) Right */ | |
2812 Ignore, /* NO KEY */ | |
2813 Alt | FctKey | 0x57, /* (Alt) End */ | |
2814 | |
2815 /* --------------- a0 to af --------------- */ | |
2816 Alt | KeyPad | 2, /* (Alt) Down */ | |
2817 Alt | KeyPad | 3, /* (Alt) Page Down */ | |
2818 Alt | KeyPad | 0, /* (Alt) Insert */ | |
2819 Alt | KeyPad | 10, /* (Alt) Delete */ | |
2820 Alt | Grey | 0, /* (Alt) Grey / */ | |
2821 Alt | FctKey | 0x09, /* (Alt) Tab */ | |
2822 Alt | Grey | 4 /* (Alt) Keypad Enter */ | |
2823 }; | |
13274 | 2824 |
13179 | 2825 /* These bit-positions corresponds to values returned by BIOS */ |
2826 #define SHIFT_P 0x0003 /* two bits! */ | |
2827 #define CTRL_P 0x0004 | |
2828 #define ALT_P 0x0008 | |
2829 #define SCRLOCK_P 0x0010 | |
2830 #define NUMLOCK_P 0x0020 | |
2831 #define CAPSLOCK_P 0x0040 | |
2832 #define ALT_GR_P 0x0800 | |
2833 #define SUPER_P 0x4000 /* pseudo */ | |
2834 #define HYPER_P 0x8000 /* pseudo */ | |
2835 | |
2836 static int | |
2837 dos_get_modifiers (keymask) | |
2838 int *keymask; | |
5503 | 2839 { |
13179 | 2840 union REGS regs; |
45332 | 2841 int mask, modifiers = 0; |
2842 | |
13179 | 2843 /* Calculate modifier bits */ |
2844 regs.h.ah = extended_kbd ? 0x12 : 0x02; | |
2845 int86 (0x16, ®s, ®s); | |
2846 | |
2847 if (!extended_kbd) | |
2848 { | |
45332 | 2849 mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P | |
13179 | 2850 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); |
2851 } | |
2852 else | |
2853 { | |
2854 mask = regs.h.al & (SHIFT_P | | |
2855 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); | |
45332 | 2856 |
13179 | 2857 /* Do not break international keyboard support. */ |
2858 /* When Keyb.Com is loaded, the right Alt key is */ | |
2859 /* used for accessing characters like { and } */ | |
2860 if (regs.h.ah & 2) /* Left ALT pressed ? */ | |
2861 mask |= ALT_P; | |
2862 | |
2863 if ((regs.h.ah & 8) != 0) /* Right ALT pressed ? */ | |
2864 { | |
2865 mask |= ALT_GR_P; | |
2866 if (dos_hyper_key == 1) | |
2867 { | |
2868 mask |= HYPER_P; | |
2869 modifiers |= hyper_modifier; | |
2870 } | |
2871 else if (dos_super_key == 1) | |
2872 { | |
2873 mask |= SUPER_P; | |
2874 modifiers |= super_modifier; | |
2875 } | |
16763
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2876 else if (!international_keyboard) |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2877 { |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2878 /* 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
|
2879 like the Left Alt. */ |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2880 mask &= ~ALT_GR_P; |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2881 mask |= ALT_P; |
e4f0f7fe8304
(dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents:
16613
diff
changeset
|
2882 } |
13179 | 2883 } |
45332 | 2884 |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
2885 if (regs.h.ah & 1) /* Left CTRL pressed ? */ |
13179 | 2886 mask |= CTRL_P; |
2887 | |
2888 if (regs.h.ah & 4) /* Right CTRL pressed ? */ | |
2889 { | |
2890 if (dos_hyper_key == 2) | |
2891 { | |
2892 mask |= HYPER_P; | |
2893 modifiers |= hyper_modifier; | |
2894 } | |
2895 else if (dos_super_key == 2) | |
2896 { | |
2897 mask |= SUPER_P; | |
2898 modifiers |= super_modifier; | |
2899 } | |
2900 else | |
2901 mask |= CTRL_P; | |
2902 } | |
2903 } | |
2904 | |
2905 if (mask & SHIFT_P) | |
2906 modifiers |= shift_modifier; | |
2907 if (mask & CTRL_P) | |
2908 modifiers |= ctrl_modifier; | |
2909 if (mask & ALT_P) | |
2910 modifiers |= meta_modifier; | |
2911 | |
2912 if (keymask) | |
2913 *keymask = mask; | |
2914 return modifiers; | |
5503 | 2915 } |
2916 | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2917 #define NUM_RECENT_DOSKEYS (100) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2918 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
|
2919 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
|
2920 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
|
2921 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2922 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
|
2923 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
|
2924 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
|
2925 and then the scan code. */) |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2926 () |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2927 { |
45332 | 2928 Lisp_Object val, *keys = XVECTOR (recent_doskeys)->contents; |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2929 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2930 if (total_doskeys < NUM_RECENT_DOSKEYS) |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2931 return Fvector (total_doskeys, keys); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2932 else |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2933 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2934 val = Fvector (NUM_RECENT_DOSKEYS, keys); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2935 bcopy (keys + recent_doskeys_index, |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2936 XVECTOR (val)->contents, |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2937 (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
|
2938 bcopy (keys, |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2939 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
|
2940 recent_doskeys_index * sizeof (Lisp_Object)); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2941 return val; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2942 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2943 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2944 |
13179 | 2945 /* Get a char from keyboard. Function keys are put into the event queue. */ |
2946 static int | |
2947 dos_rawgetc () | |
5503 | 2948 { |
13179 | 2949 struct input_event event; |
2950 union REGS regs; | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
2951 struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (SELECTED_FRAME()); |
51571
904f120f283f
(dos_rawgetc): Don't pass uninitialized data to kbd_buffer_store_event.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51201
diff
changeset
|
2952 EVENT_INIT (event); |
54730
c33e4ac43939
(clear_mouse_face): Only clear mouse highlight if not hidden.
Kim F. Storm <storm@cua.dk>
parents:
53187
diff
changeset
|
2953 |
13179 | 2954 #ifndef HAVE_X_WINDOWS |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
2955 /* 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
|
2956 IT_cmgoto (SELECTED_FRAME()); |
13179 | 2957 #endif |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
2958 |
13179 | 2959 /* The following condition is equivalent to `kbhit ()', except that |
2960 it uses the bios to do its job. This pleases DESQview/X. */ | |
2961 while ((regs.h.ah = extended_kbd ? 0x11 : 0x01), | |
2962 int86 (0x16, ®s, ®s), | |
2963 (regs.x.flags & 0x40) == 0) | |
5503 | 2964 { |
13179 | 2965 union REGS regs; |
2966 register unsigned char c; | |
45332 | 2967 int modifiers, sc, code = -1, mask, kp_mode; |
13179 | 2968 |
2969 regs.h.ah = extended_kbd ? 0x10 : 0x00; | |
2970 int86 (0x16, ®s, ®s); | |
2971 c = regs.h.al; | |
2972 sc = regs.h.ah; | |
5503 | 2973 |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2974 total_doskeys += 2; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2975 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
|
2976 = make_number (c); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2977 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
|
2978 recent_doskeys_index = 0; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2979 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
|
2980 = make_number (sc); |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2981 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
|
2982 recent_doskeys_index = 0; |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
2983 |
13274 | 2984 modifiers = dos_get_modifiers (&mask); |
45332 | 2985 |
13179 | 2986 #ifndef HAVE_X_WINDOWS |
13274 | 2987 if (!NILP (Vdos_display_scancodes)) |
13179 | 2988 { |
14157
38606398dfa6
(dos_rawgetc): Make buf longer.
Richard M. Stallman <rms@gnu.org>
parents:
14036
diff
changeset
|
2989 char buf[11]; |
13179 | 2990 sprintf (buf, "%02x:%02x*%04x", |
2991 (unsigned) (sc&0xff), (unsigned) c, mask); | |
2992 dos_direct_output (screen_size_Y - 2, screen_size_X - 12, buf, 10); | |
2993 } | |
2994 #endif | |
5503 | 2995 |
13179 | 2996 if (sc == 0xe0) |
2997 { | |
2998 switch (c) | |
2999 { | |
3000 case 10: /* Ctrl Grey Enter */ | |
3001 code = Ctrl | Grey | 4; | |
3002 break; | |
3003 case 13: /* Grey Enter */ | |
3004 code = Grey | 4; | |
3005 break; | |
3006 case '/': /* Grey / */ | |
3007 code = Grey | 0; | |
3008 break; | |
3009 default: | |
3010 continue; | |
3011 }; | |
3012 c = 0; | |
3013 } | |
3014 else | |
3015 { | |
24559
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3016 /* 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
|
3017 if (keyboard->translate_table) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3018 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3019 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
|
3020 |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3021 while (p->sc) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3022 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3023 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
|
3024 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3025 code = p->code; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3026 break; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3027 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3028 p++; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3029 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3030 } |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3031 /* 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
|
3032 one. */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3033 if (code == -1) |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3034 { |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3035 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
|
3036 continue; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3037 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
|
3038 continue; |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
3039 } |
13179 | 3040 } |
45332 | 3041 |
13179 | 3042 if (c == 0) |
3043 { | |
16967
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3044 /* 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
|
3045 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
|
3046 `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
|
3047 `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
|
3048 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
|
3049 However, for keys with the `Map' property set, the ASCII |
78501 | 3050 code returns zero only if Alt is pressed. So, when we DON'T |
16967
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3051 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
|
3052 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
|
3053 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
|
3054 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
|
3055 if ( (code & Alt) |
4ca0a5e25605
dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents:
16915
diff
changeset
|
3056 || ( (code & 0xf000) == Map && !international_keyboard)) |
13179 | 3057 modifiers |= meta_modifier; |
3058 if (code & Ctrl) | |
3059 modifiers |= ctrl_modifier; | |
3060 if (code & Shift) | |
3061 modifiers |= shift_modifier; | |
3062 } | |
45332 | 3063 |
13179 | 3064 switch (code & 0xf000) |
3065 { | |
3066 case ModFct: | |
3067 if (c && !(mask & (SHIFT_P | ALT_P | CTRL_P | HYPER_P | SUPER_P))) | |
3068 return c; | |
3069 c = 0; /* Special */ | |
45332 | 3070 |
13179 | 3071 case FctKey: |
3072 if (c != 0) | |
3073 return c; | |
45332 | 3074 |
13179 | 3075 case Special: |
3076 code |= 0xff00; | |
3077 break; | |
45332 | 3078 |
13179 | 3079 case Normal: |
3080 if (sc == 0) | |
3081 { | |
3082 if (c == 0) /* ctrl-break */ | |
3083 continue; | |
3084 return c; /* ALT-nnn */ | |
3085 } | |
3086 if (!keyboard_map_all) | |
3087 { | |
3088 if (c != ' ') | |
3089 return c; | |
3090 code = c; | |
3091 break; | |
3092 } | |
45332 | 3093 |
13179 | 3094 case Map: |
3095 if (c && !(mask & ALT_P) && !((mask & SHIFT_P) && (mask & CTRL_P))) | |
3096 if (!keyboard_map_all) | |
3097 return c; | |
5503 | 3098 |
13179 | 3099 code &= 0xff; |
3100 if (mask & ALT_P && code <= 10 && code > 0 && dos_keypad_mode & 0x200) | |
3101 mask |= SHIFT_P; /* ALT-1 => M-! etc. */ | |
45332 | 3102 |
13179 | 3103 if (mask & SHIFT_P) |
3104 { | |
13274 | 3105 code = keyboard->shifted[code]; |
13179 | 3106 mask -= SHIFT_P; |
3107 modifiers &= ~shift_modifier; | |
3108 } | |
3109 else | |
13274 | 3110 if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[code] != ' ') |
3111 code = keyboard->alt_gr[code]; | |
13179 | 3112 else |
13274 | 3113 code = keyboard->unshifted[code]; |
13179 | 3114 break; |
3115 | |
3116 case KeyPad: | |
3117 code &= 0xff; | |
3118 if (c == 0xe0) /* edit key */ | |
3119 kp_mode = 3; | |
3120 else | |
3121 if ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) /* numlock on */ | |
3122 kp_mode = dos_keypad_mode & 0x03; | |
3123 else | |
3124 kp_mode = (dos_keypad_mode >> 4) & 0x03; | |
45332 | 3125 |
13179 | 3126 switch (kp_mode) |
3127 { | |
3128 case 0: | |
3129 if (code == 10 && dos_decimal_point) | |
3130 return dos_decimal_point; | |
13274 | 3131 return keypad_translate_map[code].char_code; |
5503 | 3132 |
13179 | 3133 case 1: |
13274 | 3134 code = 0xff00 | keypad_translate_map[code].keypad_code; |
13179 | 3135 break; |
5503 | 3136 |
13179 | 3137 case 2: |
13274 | 3138 code = keypad_translate_map[code].meta_code; |
13179 | 3139 modifiers = meta_modifier; |
3140 break; | |
45332 | 3141 |
13179 | 3142 case 3: |
13274 | 3143 code = 0xff00 | keypad_translate_map[code].editkey_code; |
13179 | 3144 break; |
3145 } | |
3146 break; | |
45332 | 3147 |
13179 | 3148 case Grey: |
3149 code &= 0xff; | |
3150 kp_mode = ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) ? 0x04 : 0x40; | |
3151 if (dos_keypad_mode & kp_mode) | |
13274 | 3152 code = 0xff00 | grey_key_translate_map[code].keypad_code; |
13179 | 3153 else |
13274 | 3154 code = grey_key_translate_map[code].char_code; |
13179 | 3155 break; |
3156 } | |
45332 | 3157 |
13179 | 3158 make_event: |
3159 if (code == 0) | |
3160 continue; | |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3161 |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3162 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight)) |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3163 { |
54730
c33e4ac43939
(clear_mouse_face): Only clear mouse highlight if not hidden.
Kim F. Storm <storm@cua.dk>
parents:
53187
diff
changeset
|
3164 clear_mouse_face (dpyinfo); |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3165 dpyinfo->mouse_face_hidden = 1; |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3166 } |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3167 |
13179 | 3168 if (code >= 0x100) |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45332
diff
changeset
|
3169 event.kind = NON_ASCII_KEYSTROKE_EVENT; |
13179 | 3170 else |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45332
diff
changeset
|
3171 event.kind = ASCII_KEYSTROKE_EVENT; |
13179 | 3172 event.code = code; |
3173 event.modifiers = modifiers; | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3174 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
|
3175 event.arg = Qnil; |
13179 | 3176 event.timestamp = event_timestamp (); |
3177 kbd_buffer_store_event (&event); | |
3178 } | |
5503 | 3179 |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3180 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
|
3181 { |
13179 | 3182 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
|
3183 int mouse_prev_x = mouse_last_x, mouse_prev_y = mouse_last_y; |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3184 Lisp_Object mouse_window = Qnil; |
5503 | 3185 |
13179 | 3186 /* Check for mouse movement *before* buttons. */ |
3187 mouse_check_moved (); | |
5503 | 3188 |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3189 /* 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
|
3190 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
|
3191 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
|
3192 { |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3193 if (dpyinfo->mouse_face_hidden) |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3194 { |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3195 dpyinfo->mouse_face_hidden = 0; |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3196 clear_mouse_face (dpyinfo); |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3197 } |
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3198 |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3199 /* Generate SELECT_WINDOW_EVENTs when needed. */ |
72736
f6b18b9949d1
* xdisp.c (mouse_autoselect_window): Removed.
Chong Yidong <cyd@stupidchicken.com>
parents:
71986
diff
changeset
|
3200 if (!NILP (Vmouse_autoselect_window)) |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3201 { |
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3202 mouse_window = window_from_coordinates (SELECTED_FRAME(), |
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3203 mouse_last_x, |
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3204 mouse_last_y, |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
3205 0, 0, 0, 0); |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3206 /* A window will be selected only when it is not |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3207 selected now, and the last mouse movement event was |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3208 not in it. A minibuffer window will be selected iff |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3209 it is active. */ |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3210 if (WINDOWP (mouse_window) |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3211 && !EQ (mouse_window, last_mouse_window) |
79060
848bc3eac628
(dos_rawgetc): Undo last change (there's no ``leaving selected frame''
Eli Zaretskii <eliz@gnu.org>
parents:
78987
diff
changeset
|
3212 && !EQ (mouse_window, selected_window)) |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3213 { |
44337
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3214 event.kind = SELECT_WINDOW_EVENT; |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3215 event.frame_or_window = mouse_window; |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3216 event.arg = Qnil; |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3217 event.timestamp = event_timestamp (); |
228b881931ef
(dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents:
44303
diff
changeset
|
3218 kbd_buffer_store_event (&event); |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3219 } |
43363
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
3220 last_mouse_window = mouse_window; |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
3221 } |
43363
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
3222 else |
bcefd6f01283
(last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43357
diff
changeset
|
3223 last_mouse_window = Qnil; |
43371
263456abbeb0
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43363
diff
changeset
|
3224 |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3225 previous_help_echo_string = help_echo_string; |
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3226 help_echo_string = help_echo_object = help_echo_window = Qnil; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3227 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
|
3228 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
|
3229 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
|
3230 /* 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
|
3231 changed, generate a HELP_EVENT. */ |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3232 if (!NILP (help_echo_string) || !NILP (previous_help_echo_string)) |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3233 { |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3234 event.kind = HELP_EVENT; |
30180
c36d4c8b21b6
(dos_rawgetc): Adapt to change of HELP_EVENTs.
Gerd Moellmann <gerd@gnu.org>
parents:
30132
diff
changeset
|
3235 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
|
3236 event.arg = help_echo_object; |
44525
440ce7bfcd77
(dos_rawgetc): Use a single event for HELP_EVENT.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44364
diff
changeset
|
3237 event.x = WINDOWP (help_echo_window) |
440ce7bfcd77
(dos_rawgetc): Use a single event for HELP_EVENT.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44364
diff
changeset
|
3238 ? help_echo_window : selected_frame; |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
3239 event.y = help_echo_string; |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3240 event.timestamp = event_timestamp (); |
44528
d5befc8ddce0
(dos_rawgetc): int/Lisp_Object confusion.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44525
diff
changeset
|
3241 event.code = help_echo_pos; |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3242 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
|
3243 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3244 } |
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
3245 |
13179 | 3246 for (but = 0; but < NUM_MOUSE_BUTTONS; but++) |
3247 for (press = 0; press < 2; press++) | |
3248 { | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3249 int button_num = but; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3250 |
13179 | 3251 if (press) |
3252 ok = mouse_pressed (but, &x, &y); | |
3253 else | |
3254 ok = mouse_released (but, &x, &y); | |
3255 if (ok) | |
3256 { | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3257 /* 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
|
3258 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
|
3259 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
|
3260 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3261 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
|
3262 |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3263 /* 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
|
3264 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
|
3265 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
|
3266 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
|
3267 || !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
|
3268 button_num = 2; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3269 else |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3270 { |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3271 delay (100); |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3272 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
|
3273 || !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
|
3274 button_num = 2; |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3275 } |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3276 } |
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3277 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45332
diff
changeset
|
3278 event.kind = MOUSE_CLICK_EVENT; |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3279 event.code = button_num; |
13179 | 3280 event.modifiers = dos_get_modifiers (0) |
3281 | (press ? down_modifier : up_modifier); | |
56335
b6377908f1d4
(dos_rawgetc): Use make_number to produce Lisp objects
Eli Zaretskii <eliz@gnu.org>
parents:
55662
diff
changeset
|
3282 event.x = make_number (x); |
b6377908f1d4
(dos_rawgetc): Use make_number to produce Lisp objects
Eli Zaretskii <eliz@gnu.org>
parents:
55662
diff
changeset
|
3283 event.y = make_number (y); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3284 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
|
3285 event.arg = Qnil; |
13179 | 3286 event.timestamp = event_timestamp (); |
3287 kbd_buffer_store_event (&event); | |
3288 } | |
3289 } | |
3290 } | |
5503 | 3291 |
13179 | 3292 return -1; |
9572 | 3293 } |
3294 | |
13179 | 3295 static int prev_get_char = -1; |
5503 | 3296 |
13179 | 3297 /* 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
|
3298 |
13179 | 3299 dos_keysns () |
5503 | 3300 { |
13179 | 3301 if (prev_get_char != -1) |
3302 return 1; | |
3303 else | |
3304 return ((prev_get_char = dos_rawgetc ()) != -1); | |
5503 | 3305 } |
3306 | |
13179 | 3307 /* 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
|
3308 |
13179 | 3309 dos_keyread () |
5503 | 3310 { |
13179 | 3311 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
|
3312 { |
13179 | 3313 int c = prev_get_char; |
3314 prev_get_char = -1; | |
3315 return c; | |
8246
d48c2b01fba5
(mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents:
8194
diff
changeset
|
3316 } |
13179 | 3317 else |
3318 return dos_rawgetc (); | |
3319 } | |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
3320 |
9572 | 3321 #ifndef HAVE_X_WINDOWS |
50247
f9447a2e045c
* xdisp.c (pixel_to_glyph_coords, glyph_to_pixel_coords):
Kim F. Storm <storm@cua.dk>
parents:
50225
diff
changeset
|
3322 |
9572 | 3323 /* Simulation of X's menus. Nothing too fancy here -- just make it work |
3324 for now. | |
3325 | |
3326 Actually, I don't know the meaning of all the parameters of the functions | |
3327 here -- I only know how they are called by xmenu.c. I could of course | |
3328 grab the nearest Xlib manual (down the hall, second-to-last door on the | |
3329 left), but I don't think it's worth the effort. */ | |
3330 | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3331 /* 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
|
3332 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
|
3333 /* 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
|
3334 last menu help message. */ |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3335 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
|
3336 |
9572 | 3337 static XMenu * |
3338 IT_menu_create () | |
3339 { | |
3340 XMenu *menu; | |
3341 | |
3342 menu = (XMenu *) xmalloc (sizeof (XMenu)); | |
3343 menu->allocated = menu->count = menu->panecount = menu->width = 0; | |
3344 return menu; | |
3345 } | |
3346 | |
3347 /* Allocate some (more) memory for MENU ensuring that there is room for one | |
3348 for item. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3349 |
9572 | 3350 static void |
3351 IT_menu_make_room (XMenu *menu) | |
3352 { | |
3353 if (menu->allocated == 0) | |
3354 { | |
3355 int count = menu->allocated = 10; | |
3356 menu->text = (char **) xmalloc (count * sizeof (char *)); | |
3357 menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *)); | |
3358 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
|
3359 menu->help_text = (char **) xmalloc (count * sizeof (char *)); |
9572 | 3360 } |
3361 else if (menu->allocated == menu->count) | |
3362 { | |
3363 int count = menu->allocated = menu->allocated + 10; | |
3364 menu->text | |
3365 = (char **) xrealloc (menu->text, count * sizeof (char *)); | |
3366 menu->submenu | |
3367 = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *)); | |
3368 menu->panenumber | |
3369 = (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
|
3370 menu->help_text |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3371 = (char **) xrealloc (menu->help_text, count * sizeof (char *)); |
9572 | 3372 } |
3373 } | |
3374 | |
3375 /* 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
|
3376 |
9572 | 3377 static XMenu * |
3378 IT_menu_search_pane (XMenu *menu, int pane) | |
3379 { | |
3380 int i; | |
3381 XMenu *try; | |
3382 | |
3383 for (i = 0; i < menu->count; i++) | |
3384 if (menu->submenu[i]) | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3385 { |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3386 if (pane == menu->panenumber[i]) |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3387 return menu->submenu[i]; |
13179 | 3388 if ((try = IT_menu_search_pane (menu->submenu[i], pane))) |
9572 | 3389 return try; |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3390 } |
9572 | 3391 return (XMenu *) 0; |
3392 } | |
3393 | |
3394 /* 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
|
3395 |
9572 | 3396 static void |
3397 IT_menu_calc_size (XMenu *menu, int *width, int *height) | |
3398 { | |
3399 int i, h2, w2, maxsubwidth, maxheight; | |
3400 | |
3401 maxsubwidth = 0; | |
3402 maxheight = menu->count; | |
3403 for (i = 0; i < menu->count; i++) | |
3404 { | |
3405 if (menu->submenu[i]) | |
3406 { | |
3407 IT_menu_calc_size (menu->submenu[i], &w2, &h2); | |
3408 if (w2 > maxsubwidth) maxsubwidth = w2; | |
3409 if (i + h2 > maxheight) maxheight = i + h2; | |
3410 } | |
3411 } | |
3412 *width = menu->width + maxsubwidth; | |
3413 *height = maxheight; | |
3414 } | |
3415 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
3416 /* 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
|
3417 |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3418 #define BUILD_CHAR_GLYPH(GLYPH, CODE, FACE_ID, PADDING_P) \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3419 do \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3420 { \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3421 (GLYPH).type = CHAR_GLYPH; \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3422 SET_CHAR_GLYPH ((GLYPH), CODE, FACE_ID, PADDING_P); \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3423 (GLYPH).charpos = -1; \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3424 } \ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3425 while (0) |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3426 |
9572 | 3427 static void |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3428 IT_menu_display (XMenu *menu, int y, int x, int pn, int *faces, int disp_help) |
9572 | 3429 { |
45332 | 3430 int i, j, face, width, mx, my, enabled, mousehere, row, col; |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3431 struct glyph *text, *p; |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3432 const unsigned char *q; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3433 struct frame *sf = SELECTED_FRAME(); |
9572 | 3434 |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3435 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
|
3436 |
9572 | 3437 width = menu->width; |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3438 /* We multiply width by 2 to account for possible control characters. |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3439 FIXME: cater to non-ASCII characters in menus. */ |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3440 text = (struct glyph *) xmalloc ((width * 2 + 2) * sizeof (struct glyph)); |
9572 | 3441 ScreenGetCursor (&row, &col); |
3442 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
|
3443 IT_update_begin (sf); |
9572 | 3444 for (i = 0; i < menu->count; i++) |
3445 { | |
27409
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3446 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
|
3447 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
3448 IT_cursor_to (sf, y + i, x); |
9572 | 3449 enabled |
3450 = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]); | |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3451 mousehere = (y + i == my && x <= mx && mx < x + max_width); |
9572 | 3452 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
|
3453 /* 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
|
3454 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
|
3455 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
|
3456 { |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3457 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
|
3458 menu_help_paneno = pn - 1; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3459 menu_help_itemno = i; |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3460 } |
9572 | 3461 p = text; |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3462 BUILD_CHAR_GLYPH (*p, ' ', face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3463 p++; |
9572 | 3464 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
|
3465 { |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3466 unsigned c = STRING_CHAR_ADVANCE (q); |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3467 |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3468 if (c > 26) |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3469 { |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3470 BUILD_CHAR_GLYPH (*p, c, face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3471 p++; |
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3472 } |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3473 else /* make '^x' */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3474 { |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3475 BUILD_CHAR_GLYPH (*p, '^', face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3476 p++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3477 j++; |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3478 BUILD_CHAR_GLYPH (*p, c + 64, face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3479 p++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3480 } |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3481 } |
27409
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3482 /* 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
|
3483 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
|
3484 { |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3485 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
|
3486 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
|
3487 } |
4df4f3866b55
(IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents:
27046
diff
changeset
|
3488 for (; j < max_width - 2; j++, p++) |
97903
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3489 BUILD_CHAR_GLYPH (*p, ' ', face, 0); |
fa91a1ebb701
(BUILD_CHAR_GLYPH): New macro.
Eli Zaretskii <eliz@gnu.org>
parents:
97873
diff
changeset
|
3490 |
98030
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3491 /* 16 is the character code of a character that on DOS terminal |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3492 produces a nice-looking right-pointing arrow glyph. */ |
5c5323a73e60
(IT_menu_display): Use STRING_CHAR_ADVANCE instead of a "char *q" to access
Eli Zaretskii <eliz@gnu.org>
parents:
97903
diff
changeset
|
3493 BUILD_CHAR_GLYPH (*p, menu->submenu[i] ? 16 : ' ', face, 0); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3494 p++; |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
3495 IT_write_glyphs (sf, text, max_width); |
9572 | 3496 } |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3497 IT_update_end (sf); |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
3498 IT_cursor_to (sf, row, col); |
9572 | 3499 xfree (text); |
3500 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3501 |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3502 /* --------------------------- X Menu emulation ---------------------- */ |
9572 | 3503 |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3504 /* Report availability of menus. */ |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3505 |
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3506 int |
45332 | 3507 have_menus_p () { return 1; } |
13179 | 3508 |
9572 | 3509 /* 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
|
3510 |
9572 | 3511 XMenu * |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3512 XMenuCreate (Display *foo1, Window foo2, char *foo3) |
9572 | 3513 { |
3514 return IT_menu_create (); | |
3515 } | |
3516 | |
3517 /* Create a new pane and place it on the outer-most level. It is not | |
3518 clear that it should be placed out there, but I don't know what else | |
3519 to do. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3520 |
9572 | 3521 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3522 XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable) |
9572 | 3523 { |
3524 int len; | |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3525 char *p; |
9572 | 3526 |
3527 if (!enable) | |
3528 abort (); | |
3529 | |
3530 IT_menu_make_room (menu); | |
3531 menu->submenu[menu->count] = IT_menu_create (); | |
3532 menu->text[menu->count] = txt; | |
3533 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
|
3534 menu->help_text[menu->count] = NULL; |
9572 | 3535 menu->count++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3536 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3537 /* 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
|
3538 be written as ^x). */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3539 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
|
3540 if (*p < 27) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3541 len++; |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3542 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3543 if (len > menu->width) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3544 menu->width = len; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3545 |
9572 | 3546 return menu->panecount; |
3547 } | |
3548 | |
3549 /* 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
|
3550 |
9572 | 3551 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3552 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
|
3553 int foo, char *txt, int enable, char *help_text) |
9572 | 3554 { |
3555 int len; | |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3556 char *p; |
9572 | 3557 |
3558 if (pane) | |
3559 if (!(menu = IT_menu_search_pane (menu, pane))) | |
3560 return XM_FAILURE; | |
3561 IT_menu_make_room (menu); | |
3562 menu->submenu[menu->count] = (XMenu *) 0; | |
3563 menu->text[menu->count] = txt; | |
3564 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
|
3565 menu->help_text[menu->count] = help_text; |
9572 | 3566 menu->count++; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3567 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3568 /* 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
|
3569 be written as ^x). */ |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3570 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
|
3571 if (*p < 27) |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3572 len++; |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3573 |
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3574 if (len > menu->width) |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3575 menu->width = len; |
15627
c5c4d478c78d
(IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents:
15618
diff
changeset
|
3576 |
9572 | 3577 return XM_SUCCESS; |
3578 } | |
3579 | |
3580 /* 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
|
3581 |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3582 void |
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3583 XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y, |
9572 | 3584 int *ulx, int *uly, int *width, int *height) |
3585 { | |
13714
45e71ea63d71
(XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents:
13657
diff
changeset
|
3586 IT_menu_calc_size (menu, width, height); |
9572 | 3587 *ulx = x + 1; |
3588 *uly = y; | |
3589 *width += 2; | |
3590 } | |
3591 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3592 struct IT_menu_state |
9572 | 3593 { |
3594 void *screen_behind; | |
3595 XMenu *menu; | |
3596 int pane; | |
3597 int x, y; | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3598 }; |
9572 | 3599 |
3600 | |
3601 /* 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
|
3602 |
9572 | 3603 int |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3604 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
|
3605 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
|
3606 void (*help_callback)(char *, int, int)) |
9572 | 3607 { |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3608 struct IT_menu_state *state; |
45332 | 3609 int statecount, x, y, i, b, screensize, leave, result, onepane; |
13860
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3610 int title_faces[4]; /* face to display the menu title */ |
45332 | 3611 int faces[4], buffers_num_deleted = 0; |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3612 struct frame *sf = SELECTED_FRAME(); |
45332 | 3613 Lisp_Object saved_echo_area_message, selectface; |
9572 | 3614 |
3615 /* 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
|
3616 if (have_mouse <= 0) |
9572 | 3617 return XM_IA_SELECT; |
16871
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3618 /* 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
|
3619 around the display. */ |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3620 if (x0 <= 0) |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3621 x0 = 1; |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3622 if (y0 <= 0) |
45a12f628d3f
* (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents:
16837
diff
changeset
|
3623 y0 = 1; |
9572 | 3624 |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3625 /* 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
|
3626 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
|
3627 mouse_preempted++; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3628 |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3629 state = alloca (menu->panecount * sizeof (struct IT_menu_state)); |
13179 | 3630 screensize = screen_size * 2; |
9572 | 3631 faces[0] |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3632 = lookup_derived_face (sf, intern ("msdos-menu-passive-face"), |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3633 DEFAULT_FACE_ID, 1); |
9572 | 3634 faces[1] |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3635 = lookup_derived_face (sf, intern ("msdos-menu-active-face"), |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3636 DEFAULT_FACE_ID, 1); |
25110
4833aea1f1e7
(IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents:
25100
diff
changeset
|
3637 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
|
3638 faces[2] = lookup_derived_face (sf, selectface, |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3639 faces[0], 1); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3640 faces[3] = lookup_derived_face (sf, selectface, |
90128
13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
diff
changeset
|
3641 faces[1], 1); |
9572 | 3642 |
13860
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3643 /* 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
|
3644 `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
|
3645 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
|
3646 title_faces[i] = faces[3]; |
659a54e026bb
(XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents:
13848
diff
changeset
|
3647 |
9572 | 3648 statecount = 1; |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3649 |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3650 /* 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
|
3651 digit (which is ugly). |
45332 | 3652 |
15387
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3653 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
|
3654 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
|
3655 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
|
3656 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
|
3657 { |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3658 menu->text[0][7] = '\0'; |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3659 buffers_num_deleted = 1; |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3660 } |
30132
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3661 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3662 /* 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
|
3663 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
|
3664 before the call to message_with_string. */ |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3665 saved_echo_area_message = Fcurrent_message (); |
9572 | 3666 state[0].menu = menu; |
3667 mouse_off (); | |
3668 ScreenRetrieve (state[0].screen_behind = xmalloc (screensize)); | |
13714
45e71ea63d71
(XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents:
13657
diff
changeset
|
3669 |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3670 /* 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
|
3671 panes, which is ugly. */ |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3672 IT_display_cursor (0); |
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3673 |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3674 /* Display the menu title. */ |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3675 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
|
3676 if (buffers_num_deleted) |
9ac116f47f33
(check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
15341
diff
changeset
|
3677 menu->text[0][7] = ' '; |
9572 | 3678 if ((onepane = menu->count == 1 && menu->submenu[0])) |
3679 { | |
3680 menu->width = menu->submenu[0]->width; | |
3681 state[0].menu = menu->submenu[0]; | |
3682 } | |
3683 else | |
3684 { | |
3685 state[0].menu = menu; | |
3686 } | |
3687 state[0].x = x0 - 1; | |
3688 state[0].y = y0; | |
3689 state[0].pane = onepane; | |
3690 | |
3691 mouse_last_x = -1; /* A hack that forces display. */ | |
3692 leave = 0; | |
3693 while (!leave) | |
3694 { | |
13179 | 3695 if (!mouse_visible) mouse_on (); |
9572 | 3696 mouse_check_moved (); |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3697 if (sf->mouse_moved) |
9572 | 3698 { |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
3699 sf->mouse_moved = 0; |
9572 | 3700 result = XM_IA_SELECT; |
3701 mouse_get_xy (&x, &y); | |
3702 for (i = 0; i < statecount; i++) | |
3703 if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2) | |
3704 { | |
3705 int dy = y - state[i].y; | |
3706 if (0 <= dy && dy < state[i].menu->count) | |
3707 { | |
3708 if (!state[i].menu->submenu[dy]) | |
3709 if (state[i].menu->panenumber[dy]) | |
3710 result = XM_SUCCESS; | |
3711 else | |
3712 result = XM_IA_SELECT; | |
3713 *pane = state[i].pane - 1; | |
3714 *selidx = dy; | |
14036 | 3715 /* We hit some part of a menu, so drop extra menus that |
9572 | 3716 have been opened. That does not include an open and |
3717 active submenu. */ | |
3718 if (i != statecount - 2 | |
3719 || state[i].menu->submenu[dy] != state[i+1].menu) | |
3720 while (i != statecount - 1) | |
3721 { | |
3722 statecount--; | |
3723 mouse_off (); | |
3724 ScreenUpdate (state[statecount].screen_behind); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3725 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3726 dosv_refresh_virtual_screen (0, screen_size); |
9572 | 3727 xfree (state[statecount].screen_behind); |
3728 } | |
3729 if (i == statecount - 1 && state[i].menu->submenu[dy]) | |
3730 { | |
3731 IT_menu_display (state[i].menu, | |
3732 state[i].y, | |
3733 state[i].x, | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3734 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
|
3735 faces, 1); |
9572 | 3736 state[statecount].menu = state[i].menu->submenu[dy]; |
3737 state[statecount].pane = state[i].menu->panenumber[dy]; | |
3738 mouse_off (); | |
3739 ScreenRetrieve (state[statecount].screen_behind | |
3740 = xmalloc (screensize)); | |
3741 state[statecount].x | |
3742 = state[i].x + state[i].menu->width + 2; | |
3743 state[statecount].y = y; | |
45332 | 3744 statecount++; |
9572 | 3745 } |
3746 } | |
3747 } | |
3748 IT_menu_display (state[statecount - 1].menu, | |
3749 state[statecount - 1].y, | |
3750 state[statecount - 1].x, | |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3751 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
|
3752 faces, 1); |
9572 | 3753 } |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3754 else |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3755 { |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3756 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
|
3757 && 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
|
3758 { |
30341
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3759 help_callback (menu_help_message, |
2ad638704621
(IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents:
30198
diff
changeset
|
3760 menu_help_paneno, menu_help_itemno); |
27640
4ce3be69ca1f
(XMenuActivate): Turn off the cursor after displaying
Eli Zaretskii <eliz@gnu.org>
parents:
27462
diff
changeset
|
3761 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
|
3762 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
|
3763 } |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3764 /* 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
|
3765 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
|
3766 __dpmi_yield (); |
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3767 } |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3768 for (b = 0; b < mouse_button_count && !leave; b++) |
9572 | 3769 { |
23497
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3770 /* 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
|
3771 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
|
3772 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
|
3773 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
|
3774 { |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3775 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
|
3776 __dpmi_yield (); |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3777 leave = 1; |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3778 } |
eee76d0af99c
(mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents:
23156
diff
changeset
|
3779 (void) mouse_released (b, &x, &y); |
9572 | 3780 } |
3781 } | |
3782 | |
3783 mouse_off (); | |
3784 ScreenUpdate (state[0].screen_behind); | |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3785 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
3786 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
|
3787 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3788 /* 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
|
3789 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
|
3790 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
|
3791 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
|
3792 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
|
3793 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
|
3794 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
|
3795 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
|
3796 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
|
3797 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
|
3798 know about it. |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3799 |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3800 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
|
3801 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
|
3802 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
|
3803 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
|
3804 erasing it works correctly... */ |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3805 if (! NILP (saved_echo_area_message)) |
5d20e989c3d4
(XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents:
30050
diff
changeset
|
3806 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
|
3807 message (0); |
9572 | 3808 while (statecount--) |
3809 xfree (state[statecount].screen_behind); | |
16598
4b0b6719bbd2
[__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents:
16524
diff
changeset
|
3810 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
|
3811 /* 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
|
3812 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
|
3813 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
|
3814 (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
|
3815 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
|
3816 discard_mouse_events (); |
30711 | 3817 mouse_clear_clicks (); |
3818 if (!kbd_buffer_events_waiting (1)) | |
3819 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
|
3820 /* 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
|
3821 mouse_preempted--; |
9572 | 3822 return result; |
3823 } | |
3824 | |
3825 /* Dispose of a menu. */ | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3826 |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3827 void |
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3828 XMenuDestroy (Display *foo, XMenu *menu) |
9572 | 3829 { |
3830 int i; | |
3831 if (menu->allocated) | |
3832 { | |
3833 for (i = 0; i < menu->count; i++) | |
3834 if (menu->submenu[i]) | |
10501
19c4a9ef23e5
(XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3835 XMenuDestroy (foo, menu->submenu[i]); |
9572 | 3836 xfree (menu->text); |
3837 xfree (menu->submenu); | |
3838 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
|
3839 xfree (menu->help_text); |
9572 | 3840 } |
3841 xfree (menu); | |
27462
a4cddf1245d7
(IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents:
27409
diff
changeset
|
3842 menu_help_message = prev_menu_help_message = NULL; |
9572 | 3843 } |
3844 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3845 int |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3846 x_pixel_width (struct frame *f) |
9572 | 3847 { |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
3848 return FRAME_COLS (f); |
9572 | 3849 } |
3850 | |
12995
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3851 int |
a3620c5ffad7
(putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents:
12614
diff
changeset
|
3852 x_pixel_height (struct frame *f) |
9572 | 3853 { |
51201
df6e2df16eb0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
3854 return FRAME_LINES (f); |
9572 | 3855 } |
3856 #endif /* !HAVE_X_WINDOWS */ | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
3857 |
13179 | 3858 /* ----------------------- DOS / UNIX conversion --------------------- */ |
3859 | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3860 void msdos_downcase_filename (unsigned char *); |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3861 |
13179 | 3862 /* Destructively turn backslashes into slashes. */ |
3863 | |
3864 void | |
3865 dostounix_filename (p) | |
3866 register char *p; | |
3867 { | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3868 msdos_downcase_filename (p); |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3869 |
13179 | 3870 while (*p) |
3871 { | |
3872 if (*p == '\\') | |
3873 *p = '/'; | |
3874 p++; | |
3875 } | |
3876 } | |
3877 | |
3878 /* Destructively turn slashes into backslashes. */ | |
3879 | |
3880 void | |
3881 unixtodos_filename (p) | |
3882 register char *p; | |
3883 { | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3884 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
|
3885 { |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3886 *p += 'a' - 'A'; |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3887 p += 2; |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3888 } |
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
3889 |
13179 | 3890 while (*p) |
3891 { | |
3892 if (*p == '/') | |
3893 *p = '\\'; | |
3894 p++; | |
3895 } | |
3896 } | |
3897 | |
3898 /* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */ | |
3899 | |
3900 int | |
3901 getdefdir (drive, dst) | |
3902 int drive; | |
3903 char *dst; | |
3904 { | |
77906
a33e69b10eed
(getdefdir): Delete stray semicolon.
Chong Yidong <cyd@stupidchicken.com>
parents:
75348
diff
changeset
|
3905 char in_path[4], *p = in_path, e = errno; |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3906 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3907 /* 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
|
3908 if (drive != 0) |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3909 { |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3910 *p++ = drive + 'A' - 1; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3911 *p++ = ':'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3912 } |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3913 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3914 *p++ = '.'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3915 *p = '\0'; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3916 errno = 0; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3917 _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
|
3918 /* _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
|
3919 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
|
3920 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
|
3921 return 0; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3922 |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3923 msdos_downcase_filename (dst); |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3924 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3925 errno = e; |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
3926 return 1; |
13179 | 3927 } |
3928 | |
42192
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3929 char * |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3930 emacs_root_dir (void) |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3931 { |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3932 static char root_dir[4]; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3933 |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3934 sprintf (root_dir, "%c:/", 'A' + getdisk ()); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3935 root_dir[0] = tolower (root_dir[0]); |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3936 return root_dir; |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3937 } |
bd23b0c564d9
(emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
41940
diff
changeset
|
3938 |
13179 | 3939 /* Remove all CR's that are followed by a LF. */ |
3940 | |
3941 int | |
3942 crlf_to_lf (n, buf) | |
3943 register int n; | |
3944 register unsigned char *buf; | |
3945 { | |
45332 | 3946 unsigned char *np = buf, *startp = buf, *endp = buf + n; |
13179 | 3947 |
3948 if (n == 0) | |
3949 return n; | |
3950 while (buf < endp - 1) | |
3951 { | |
3952 if (*buf == 0x0d) | |
3953 { | |
3954 if (*(++buf) != 0x0a) | |
3955 *np++ = 0x0d; | |
3956 } | |
3957 else | |
3958 *np++ = *buf++; | |
3959 } | |
3960 if (buf < endp) | |
3961 *np++ = *buf++; | |
3962 return np - startp; | |
3963 } | |
14999 | 3964 |
15174
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3965 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
|
3966 0, 0, 0, |
99540
c5c8f07bc47c
* w32-fns.el (w32-shell-dos-semantics):
Juanma Barranquero <lekktu@gmail.com>
parents:
98030
diff
changeset
|
3967 doc: /* Return non-nil if long file names are supported on MS-DOS. */) |
41940
63819c5d6049
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
41406
diff
changeset
|
3968 () |
15174
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3969 { |
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3970 return (_USE_LFN ? Qt : Qnil); |
08937f70419e
(Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15125
diff
changeset
|
3971 } |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3972 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3973 /* 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
|
3974 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3975 void |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3976 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
|
3977 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
|
3978 { |
15588 | 3979 /* Always lower-case drive letters a-z, even if the filesystem |
3980 preserves case in filenames. | |
3981 This is so MSDOS filenames could be compared by string comparison | |
3982 functions that are case-sensitive. Even case-preserving filesystems | |
3983 do not distinguish case in drive letters. */ | |
3984 if (p[1] == ':' && *p >= 'A' && *p <= 'Z') | |
3985 { | |
3986 *p += 'a' - 'A'; | |
3987 p += 2; | |
3988 } | |
3989 | |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3990 /* 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
|
3991 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
|
3992 for ( ; *p; p++) |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3993 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
|
3994 *p += 'a' - 'A'; |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3995 } |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3996 |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
3997 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
|
3998 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
|
3999 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
|
4000 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
|
4001 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
|
4002 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
|
4003 (filename) |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4004 Lisp_Object filename; |
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4005 { |
15222
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4006 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
|
4007 |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4008 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
|
4009 return Qnil; |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4010 |
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4011 tem = Fcopy_sequence (filename); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46272
diff
changeset
|
4012 msdos_downcase_filename (SDATA (tem)); |
15222
cc264dd966cd
(Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents:
15219
diff
changeset
|
4013 return tem; |
15219
a800d1a0f07e
(msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents:
15186
diff
changeset
|
4014 } |
13179 | 4015 |
4016 /* The Emacs root directory as determined by init_environment. */ | |
4017 | |
4018 static char emacsroot[MAXPATHLEN]; | |
4019 | |
4020 char * | |
4021 rootrelativepath (rel) | |
4022 char *rel; | |
4023 { | |
4024 static char result[MAXPATHLEN + 10]; | |
4025 | |
4026 strcpy (result, emacsroot); | |
4027 strcat (result, "/"); | |
4028 strcat (result, rel); | |
4029 return result; | |
4030 } | |
4031 | |
4032 /* Define a lot of environment variables if not already defined. Don't | |
4033 remove anything unless you know what you're doing -- lots of code will | |
4034 break if one or more of these are missing. */ | |
4035 | |
4036 void | |
4037 init_environment (argc, argv, skip_args) | |
4038 int argc; | |
4039 char **argv; | |
4040 int skip_args; | |
4041 { | |
4042 char *s, *t, *root; | |
45332 | 4043 int len, i; |
22054
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4044 static const char * const tempdirs[] = { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4045 "$TMPDIR", "$TEMP", "$TMP", "c:/" |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4046 }; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4047 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
|
4048 |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4049 /* 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
|
4050 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
|
4051 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
|
4052 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
|
4053 for (i = 0; i < imax ; i++) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4054 { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4055 const char *tmp = tempdirs[i]; |
55198
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4056 char buf[FILENAME_MAX]; |
22054
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4057 |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4058 if (*tmp == '$') |
55198
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4059 { |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4060 int tmp_len; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4061 |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4062 tmp = getenv (tmp + 1); |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4063 if (!tmp) |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4064 continue; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4065 |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4066 /* Some lusers set TMPDIR=e:, probably because some losing |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4067 programs cannot handle multiple slashes if they use e:/. |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4068 e: fails in `access' below, so we interpret e: as e:/. */ |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4069 tmp_len = strlen(tmp); |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4070 if (tmp[tmp_len - 1] != '/' && tmp[tmp_len - 1] != '\\') |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4071 { |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4072 strcpy(buf, tmp); |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4073 buf[tmp_len++] = '/', buf[tmp_len] = 0; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4074 tmp = buf; |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4075 } |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4076 } |
dabd7326e596
(init_environment): If one of the TMP... environment
Eli Zaretskii <eliz@gnu.org>
parents:
54730
diff
changeset
|
4077 |
22054
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4078 /* 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
|
4079 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
|
4080 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
|
4081 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
|
4082 if (tmp && access (tmp, D_OK) == 0) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4083 { |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4084 setenv ("TMPDIR", tmp, 1); |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4085 break; |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4086 } |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4087 } |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4088 if (i >= imax) |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4089 cmd_error_internal |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4090 (Fcons (Qerror, |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4091 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
|
4092 Qnil)), |
d313bff62b93
(init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents:
21785
diff
changeset
|
4093 "While setting TMPDIR: "); |
13179 | 4094 |
23815
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4095 /* 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
|
4096 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
|
4097 (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
|
4098 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
|
4099 startup_time = clock (); |
fe9557bb7056
(init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents:
23497
diff
changeset
|
4100 |
13179 | 4101 /* Find our root from argv[0]. Assuming argv[0] is, say, |
4102 "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */ | |
4103 root = alloca (MAXPATHLEN + 20); | |
4104 _fixpath (argv[0], root); | |
15618
5da6a61ce827
(dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents:
15588
diff
changeset
|
4105 msdos_downcase_filename (root); |
13179 | 4106 len = strlen (root); |
4107 while (len > 0 && root[len] != '/' && root[len] != ':') | |
4108 len--; | |
4109 root[len] = '\0'; | |
19295
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4110 if (len > 4 |
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4111 && (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
|
4112 || strcmp (root + len - 4, "/src") == 0)) /* under a debugger */ |
13179 | 4113 root[len - 4] = '\0'; |
4114 else | |
19295
812986c77ae2
(init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents:
19293
diff
changeset
|
4115 strcpy (root, "c:/emacs"); /* let's be defensive */ |
13179 | 4116 len = strlen (root); |
4117 strcpy (emacsroot, root); | |
4118 | |
4119 /* We default HOME to our root. */ | |
4120 setenv ("HOME", root, 0); | |
4121 | |
4122 /* We default EMACSPATH to root + "/bin". */ | |
4123 strcpy (root + len, "/bin"); | |
4124 setenv ("EMACSPATH", root, 0); | |
4125 | |
4126 /* I don't expect anybody to ever use other terminals so the internal | |
4127 terminal is the default. */ | |
4128 setenv ("TERM", "internal", 0); | |
4129 | |
4130 #ifdef HAVE_X_WINDOWS | |
4131 /* Emacs expects DISPLAY to be set. */ | |
4132 setenv ("DISPLAY", "unix:0.0", 0); | |
4133 #endif | |
4134 | |
4135 /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must | |
4136 downcase it and mirror the backslashes. */ | |
4137 s = getenv ("COMSPEC"); | |
4138 if (!s) s = "c:/command.com"; | |
4139 t = alloca (strlen (s) + 1); | |
4140 strcpy (t, s); | |
4141 dostounix_filename (t); | |
4142 setenv ("SHELL", t, 0); | |
4143 | |
4144 /* PATH is also downcased and backslashes mirrored. */ | |
4145 s = getenv ("PATH"); | |
4146 if (!s) s = ""; | |
4147 t = alloca (strlen (s) + 3); | |
4148 /* Current directory is always considered part of MsDos's path but it is | |
4149 not normally mentioned. Now it is. */ | |
4150 strcat (strcpy (t, ".;"), s); | |
4151 dostounix_filename (t); /* Not a single file name, but this should work. */ | |
4152 setenv ("PATH", t, 1); | |
4153 | |
4154 /* In some sense all dos users have root privileges, so... */ | |
4155 setenv ("USER", "root", 0); | |
4156 setenv ("NAME", getenv ("USER"), 0); | |
4157 | |
4158 /* Time zone determined from country code. To make this possible, the | |
4159 country code may not span more than one time zone. In other words, | |
4160 in the USA, you lose. */ | |
13274 | 4161 if (!getenv ("TZ")) |
13179 | 4162 switch (dos_country_code) |
4163 { | |
4164 case 31: /* Belgium */ | |
4165 case 32: /* The Netherlands */ | |
4166 case 33: /* France */ | |
4167 case 34: /* Spain */ | |
4168 case 36: /* Hungary */ | |
4169 case 38: /* Yugoslavia (or what's left of it?) */ | |
4170 case 39: /* Italy */ | |
4171 case 41: /* Switzerland */ | |
4172 case 42: /* Tjekia */ | |
4173 case 45: /* Denmark */ | |
4174 case 46: /* Sweden */ | |
4175 case 47: /* Norway */ | |
4176 case 48: /* Poland */ | |
4177 case 49: /* Germany */ | |
4178 /* Daylight saving from last Sunday in March to last Sunday in | |
4179 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
|
4180 setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0); |
13179 | 4181 break; |
4182 case 44: /* United Kingdom */ | |
4183 case 351: /* Portugal */ | |
4184 case 354: /* Iceland */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4185 setenv ("TZ", "GMT+00", 0); |
13179 | 4186 break; |
4187 case 81: /* Japan */ | |
4188 case 82: /* Korea */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4189 setenv ("TZ", "JST-09", 0); |
13179 | 4190 break; |
4191 case 90: /* Turkey */ | |
4192 case 358: /* Finland */ | |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4193 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
|
4194 break; |
13179 | 4195 case 972: /* Israel */ |
13394
c4549fcdd5f3
(the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents:
13305
diff
changeset
|
4196 /* 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
|
4197 `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
|
4198 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
|
4199 setenv ("TZ", "IST-02IDT-03,M4.1.6/00:00,M9.5.6/01:00", 0); |
13179 | 4200 break; |
4201 } | |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4202 tzset (); |
13179 | 4203 } |
4204 | |
4205 | |
4206 | |
4207 static int break_stat; /* BREAK check mode status. */ | |
4208 static int stdin_stat; /* stdin IOCTL status. */ | |
4209 | |
14413
77ed54321a41
(dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents:
14284
diff
changeset
|
4210 /* 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
|
4211 control chars by DOS. Determine the keyboard type. */ |
13179 | 4212 |
4213 int | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4214 dos_ttraw (struct tty_display_info *tty) |
13179 | 4215 { |
4216 union REGS inregs, outregs; | |
4217 static int first_time = 1; | |
45332 | 4218 |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4219 /* If we are called for the initial terminal, it's too early to do |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4220 anything, and termscript isn't set up. */ |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4221 if (tty->terminal->type == output_initial) |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4222 return; |
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4223 |
13179 | 4224 break_stat = getcbrk (); |
4225 setcbrk (0); | |
4226 | |
4227 if (first_time) | |
4228 { | |
4229 inregs.h.ah = 0xc0; | |
4230 int86 (0x15, &inregs, &outregs); | |
4231 extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0); | |
45332 | 4232 |
13179 | 4233 have_mouse = 0; |
4234 | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4235 if (1 |
13179 | 4236 #ifdef HAVE_X_WINDOWS |
4237 && inhibit_window_system | |
4238 #endif | |
4239 ) | |
4240 { | |
4241 inregs.x.ax = 0x0021; | |
4242 int86 (0x33, &inregs, &outregs); | |
4243 have_mouse = (outregs.x.ax & 0xffff) == 0xffff; | |
4244 if (!have_mouse) | |
4245 { | |
4246 /* Reportedly, the above doesn't work for some mouse drivers. There | |
4247 is an additional detection method that should work, but might be | |
4248 a little slower. Use that as an alternative. */ | |
4249 inregs.x.ax = 0x0000; | |
4250 int86 (0x33, &inregs, &outregs); | |
4251 have_mouse = (outregs.x.ax & 0xffff) == 0xffff; | |
4252 } | |
4253 if (have_mouse) | |
97657
24f1cb4150ef
Include frame.h before termhooks.h.
Eli Zaretskii <eliz@gnu.org>
parents:
94963
diff
changeset
|
4254 mouse_button_count = outregs.x.bx; |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4255 |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4256 #ifndef HAVE_X_WINDOWS |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4257 /* Save the cursor shape used outside Emacs. */ |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4258 outside_cursor = _farpeekw (_dos_ds, 0x460); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4259 #endif |
13179 | 4260 } |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4261 |
13179 | 4262 first_time = 0; |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4263 |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4264 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
|
4265 return (stdin_stat != -1); |
13179 | 4266 } |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4267 else |
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4268 return (setmode (fileno (stdin), O_BINARY) != -1); |
13179 | 4269 } |
4270 | |
4271 /* 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
|
4272 |
13179 | 4273 int |
4274 dos_ttcooked () | |
4275 { | |
4276 union REGS inregs, outregs; | |
4277 | |
4278 setcbrk (break_stat); | |
4279 mouse_off (); | |
4280 | |
28092
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4281 #ifndef HAVE_X_WINDOWS |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4282 /* 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
|
4283 if (outside_cursor) |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4284 { |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4285 inregs.h.ah = 1; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4286 inregs.x.cx = outside_cursor; |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4287 int86 (0x10, &inregs, &outregs); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4288 } |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4289 #endif |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4290 |
14974
b99490300747
[MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
14783
diff
changeset
|
4291 return (setmode (fileno (stdin), stdin_stat) != -1); |
13179 | 4292 } |
4293 | |
4294 | |
4295 /* 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
|
4296 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
|
4297 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
|
4298 |
13179 | 4299 int |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4300 run_msdos_command (argv, working_dir, tempin, tempout, temperr, envv) |
13179 | 4301 unsigned char **argv; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4302 const char *working_dir; |
13718
e1b33f87545f
(run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents:
13717
diff
changeset
|
4303 int tempin, tempout, temperr; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4304 char **envv; |
13179 | 4305 { |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4306 char *saveargv1, *saveargv2, *lowcase_argv0, *pa, *pl; |
13179 | 4307 char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */ |
45332 | 4308 int msshell, result = -1, inbak, outbak, errbak, x, y; |
13179 | 4309 Lisp_Object cmd; |
4310 | |
4311 /* Get current directory as MSDOS cwd is not per-process. */ | |
4312 getwd (oldwd); | |
4313 | |
16310
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4314 /* 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
|
4315 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
|
4316 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
|
4317 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
|
4318 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
|
4319 { |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4320 *pl = *pa++; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4321 if (*pl >= 'A' && *pl <= 'Z') |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4322 *pl += 'a' - 'A'; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4323 } |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4324 *pl = '\0'; |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4325 |
c987c025d448
(run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents:
16210
diff
changeset
|
4326 cmd = Ffile_name_nondirectory (build_string (lowcase_argv0)); |
13179 | 4327 msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells")))) |
4328 && !strcmp ("-c", argv[1]); | |
4329 if (msshell) | |
4330 { | |
4331 saveargv1 = argv[1]; | |
4332 saveargv2 = argv[2]; | |
4333 argv[1] = "/c"; | |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4334 /* 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
|
4335 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
|
4336 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
|
4337 if (argv[2] && argv[3]) |
13179 | 4338 { |
4339 char *p = alloca (strlen (argv[2]) + 1); | |
4340 | |
4341 strcpy (argv[2] = p, saveargv2); | |
4342 while (*p && isspace (*p)) | |
4343 p++; | |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4344 while (*p) |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4345 { |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4346 if (*p == '/') |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4347 *p++ = '\\'; |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4348 else |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4349 p++; |
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4350 } |
13179 | 4351 } |
4352 } | |
4353 | |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4354 chdir (working_dir); |
13179 | 4355 inbak = dup (0); |
4356 outbak = dup (1); | |
4357 errbak = dup (2); | |
4358 if (inbak < 0 || outbak < 0 || errbak < 0) | |
4359 goto done; /* Allocation might fail due to lack of descriptors. */ | |
4360 | |
4361 if (have_mouse > 0) | |
4362 mouse_get_xy (&x, &y); | |
4363 | |
99583
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4364 if (!noninteractive) |
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4365 dos_ttcooked (); /* do it here while 0 = stdin */ |
45332 | 4366 |
13179 | 4367 dup2 (tempin, 0); |
4368 dup2 (tempout, 1); | |
13718
e1b33f87545f
(run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents:
13717
diff
changeset
|
4369 dup2 (temperr, 2); |
13179 | 4370 |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4371 if (msshell && !argv[3]) |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4372 { |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4373 /* 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
|
4374 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
|
4375 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
|
4376 |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4377 const char *cmnd; |
15125
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4378 |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4379 /* 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
|
4380 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
|
4381 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4382 /* 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
|
4383 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
|
4384 which will hang Emacs. */ |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4385 for (cmnd = saveargv2; *cmnd && isspace (*cmnd); cmnd++) |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4386 ; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4387 if (*cmnd) |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4388 { |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4389 extern char **environ; |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4390 char **save_env = environ; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4391 int save_system_flags = __system_flags; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4392 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4393 /* 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
|
4394 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
|
4395 __system_flags = (__system_redirect |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4396 | __system_use_shell |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4397 | __system_allow_multiple_cmds |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4398 | __system_allow_long_cmds |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4399 | __system_handle_null_commands |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4400 | __system_emulate_chdir); |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4401 |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4402 environ = envv; |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4403 result = system (cmnd); |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4404 __system_flags = save_system_flags; |
30529
788ce16426e3
(run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents:
30381
diff
changeset
|
4405 environ = save_env; |
21693
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4406 } |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4407 else |
fc0153e88b71
(run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents:
21583
diff
changeset
|
4408 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
|
4409 } |
4dc406e38d68
(dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents:
15096
diff
changeset
|
4410 else |
107733
84b961690802
Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
4411 result = spawnve (P_WAIT, argv[0], argv, envv); |
45332 | 4412 |
13179 | 4413 dup2 (inbak, 0); |
4414 dup2 (outbak, 1); | |
4415 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
|
4416 emacs_close (inbak); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25214
diff
changeset
|
4417 emacs_close (outbak); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25214
diff
changeset
|
4418 emacs_close (errbak); |
13179 | 4419 |
99583
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4420 if (!noninteractive) |
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4421 dos_ttraw (CURTTY ()); |
13179 | 4422 if (have_mouse > 0) |
4423 { | |
4424 mouse_init (); | |
4425 mouse_moveto (x, y); | |
4426 } | |
16837
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4427 |
7370bcad5cb1
(bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents:
16763
diff
changeset
|
4428 /* 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
|
4429 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
|
4430 bright background colors. Restore that. */ |
99583
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4431 if (!noninteractive) |
e84316087c93
(run_msdos_command): Don't call dos_ttcooked, dos_ttraw, and bright_bg
Eli Zaretskii <eliz@gnu.org>
parents:
99540
diff
changeset
|
4432 bright_bg (); |
45332 | 4433 |
13179 | 4434 done: |
4435 chdir (oldwd); | |
4436 if (msshell) | |
4437 { | |
4438 argv[1] = saveargv1; | |
4439 argv[2] = saveargv2; | |
4440 } | |
4441 return result; | |
4442 } | |
4443 | |
46954
6c7dc88b9a5d
(croak): Add `void' to definition.
Eli Zaretskii <eliz@gnu.org>
parents:
46370
diff
changeset
|
4444 void |
13179 | 4445 croak (badfunc) |
4446 char *badfunc; | |
4447 { | |
4448 fprintf (stderr, "%s not yet implemented\r\n", badfunc); | |
53341 | 4449 reset_all_sys_modes (); |
13179 | 4450 exit (1); |
4451 } | |
13848
5f38596d591e
(have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents:
13744
diff
changeset
|
4452 |
107734 | 4453 /* |
4454 * A few unimplemented functions that we silently ignore. | |
4455 */ | |
4456 setpgrp () {return 0; } | |
4457 setpriority (x,y,z) int x,y,z; { return 0; } | |
4458 | |
107733
84b961690802
Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents:
106815
diff
changeset
|
4459 #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2 |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4460 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4461 #ifdef POSIX_SIGNALS |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4462 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4463 /* 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
|
4464 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
|
4465 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4466 #include <libc/bss.h> |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4467 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4468 /* 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
|
4469 static int sigprocmask_count = -1; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4470 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4471 /* Which signals are currently blocked (initially none). */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4472 static sigset_t current_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4473 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4474 /* Which signals are pending (initially none). */ |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4475 static sigset_t msdos_pending_signals; |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4476 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4477 /* 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
|
4478 typedef void (*sighandler_t)(int); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4479 static sighandler_t prev_handlers[320]; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4480 |
46272 | 4481 /* A signal handler which just records that a signal occurred |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4482 (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
|
4483 static void |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4484 sig_suspender (signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4485 int signo; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4486 { |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4487 sigaddset (&msdos_pending_signals, signo); |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4488 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4489 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4490 int |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4491 sigprocmask (how, new_set, old_set) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4492 int how; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4493 const sigset_t *new_set; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4494 sigset_t *old_set; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4495 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4496 int signo; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4497 sigset_t new_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4498 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4499 /* If called for the first time, initialize. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4500 if (sigprocmask_count != __bss_count) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4501 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4502 sigprocmask_count = __bss_count; |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4503 sigemptyset (&msdos_pending_signals); |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4504 sigemptyset (¤t_mask); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4505 for (signo = 0; signo < 320; signo++) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4506 prev_handlers[signo] = SIG_ERR; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4507 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4508 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4509 if (old_set) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4510 *old_set = current_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4511 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4512 if (new_set == 0) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4513 return 0; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4514 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4515 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
|
4516 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4517 errno = EINVAL; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4518 return -1; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4519 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4520 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4521 sigemptyset (&new_mask); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4522 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4523 /* DJGPP supports upto 320 signals. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4524 for (signo = 0; signo < 320; signo++) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4525 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4526 if (sigismember (¤t_mask, signo)) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4527 sigaddset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4528 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
|
4529 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4530 sigaddset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4531 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4532 /* SIGKILL is silently ignored, as on other platforms. */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4533 if (signo != SIGKILL && prev_handlers[signo] == SIG_ERR) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4534 prev_handlers[signo] = signal (signo, sig_suspender); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4535 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4536 if (( how == SIG_UNBLOCK |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4537 && sigismember (&new_mask, signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4538 && sigismember (new_set, signo)) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4539 || (how == SIG_SETMASK |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4540 && sigismember (&new_mask, signo) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4541 && !sigismember (new_set, signo))) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4542 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4543 sigdelset (&new_mask, signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4544 if (prev_handlers[signo] != SIG_ERR) |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4545 { |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4546 signal (signo, prev_handlers[signo]); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4547 prev_handlers[signo] = SIG_ERR; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4548 } |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4549 if (sigismember (&msdos_pending_signals, signo)) |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4550 { |
101658
ce543dc9d6b4
Rename pending_signals to msdos_pending_signals.
Eli Zaretskii <eliz@gnu.org>
parents:
100951
diff
changeset
|
4551 sigdelset (&msdos_pending_signals, signo); |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4552 raise (signo); |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4553 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4554 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4555 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4556 current_mask = new_mask; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4557 return 0; |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4558 } |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4559 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4560 #else /* not POSIX_SIGNALS */ |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4561 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4562 sigsetmask (x) int x; { return 0; } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49381
diff
changeset
|
4563 sigblock (mask) int mask; { return 0; } |
16872
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4564 |
1efa81ac7e5a
* (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents:
16871
diff
changeset
|
4565 #endif /* not POSIX_SIGNALS */ |
45332 | 4566 #endif /* not __DJGPP_MINOR__ < 2 */ |
13179 | 4567 |
4568 #ifndef HAVE_SELECT | |
4569 #include "sysselect.h" | |
4570 | |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4571 #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
|
4572 #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
|
4573 ((long)(time).tv_sec < 0 \ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4574 || ((time).tv_sec == 0 \ |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4575 && (long)(time).tv_usec <= 0)) |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4576 #endif |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4577 |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4578 /* 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
|
4579 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
|
4580 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
|
4581 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4582 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
|
4583 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
|
4584 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
|
4585 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4586 void |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4587 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
|
4588 { |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4589 _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
|
4590 |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4591 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
|
4592 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
|
4593 _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
|
4594 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
|
4595 errno = ENOSYS; |
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4596 } |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4597 |
13179 | 4598 /* Only event queue is checked. */ |
14999 | 4599 /* We don't have to call timer_check here |
56729
e6e0caa7ec87
Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents:
56335
diff
changeset
|
4600 because wait_reading_process_output takes care of that. */ |
13179 | 4601 int |
4602 sys_select (nfds, rfds, wfds, efds, timeout) | |
4603 int nfds; | |
4604 SELECT_TYPE *rfds, *wfds, *efds; | |
4605 EMACS_TIME *timeout; | |
4606 { | |
4607 int check_input; | |
4608 struct time t; | |
4609 | |
4610 check_input = 0; | |
4611 if (rfds) | |
4612 { | |
4613 check_input = FD_ISSET (0, rfds); | |
4614 FD_ZERO (rfds); | |
4615 } | |
4616 if (wfds) | |
4617 FD_ZERO (wfds); | |
4618 if (efds) | |
4619 FD_ZERO (efds); | |
4620 | |
4621 if (nfds != 1) | |
4622 abort (); | |
45332 | 4623 |
13179 | 4624 /* If we are looking only for the terminal, with no timeout, |
4625 just read it and wait -- that's more efficient. */ | |
4626 if (!timeout) | |
4627 { | |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4628 while (!detect_input_pending ()) |
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4629 { |
22481
c19803db4a93
(dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents:
22054
diff
changeset
|
4630 dos_yield_time_slice (); |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4631 } |
13179 | 4632 } |
4633 else | |
4634 { | |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4635 EMACS_TIME clnow, cllast, cldiff; |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4636 |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4637 gettime (&t); |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4638 EMACS_SET_SECS_USECS (cllast, t.ti_sec, t.ti_hund * 10000L); |
13179 | 4639 |
4640 while (!check_input || !detect_input_pending ()) | |
4641 { | |
15033
9e174c2b4ba6
(check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents:
14999
diff
changeset
|
4642 gettime (&t); |
14279
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4643 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
|
4644 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
|
4645 |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4646 /* 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
|
4647 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
|
4648 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
|
4649 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
|
4650 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
|
4651 |
085bc709c11d
(sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents:
14262
diff
changeset
|
4652 /* 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
|
4653 if (EMACS_TIME_ZERO_OR_NEG_P (*timeout)) |
13179 | 4654 return 0; |
4655 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
|
4656 dos_yield_time_slice (); |
13179 | 4657 } |
4658 } | |
45332 | 4659 |
13179 | 4660 FD_SET (0, rfds); |
4661 return 1; | |
4662 } | |
4663 #endif | |
4664 | |
4665 /* | |
14036 | 4666 * Define overlaid functions: |
13179 | 4667 * |
4668 * chdir -> sys_chdir | |
4669 * tzset -> init_gettimeofday | |
4670 * abort -> dos_abort | |
4671 */ | |
4672 | |
4673 #ifdef chdir | |
4674 #undef chdir | |
4675 extern int chdir (); | |
4676 | |
4677 int | |
4678 sys_chdir (path) | |
4679 const char* path; | |
4680 { | |
4681 int len = strlen (path); | |
4682 char *tmp = (char *)path; | |
4683 | |
4684 if (*tmp && tmp[1] == ':') | |
4685 { | |
4686 if (getdisk () != tolower (tmp[0]) - 'a') | |
4687 setdisk (tolower (tmp[0]) - 'a'); | |
4688 tmp += 2; /* strip drive: KFS 1995-07-06 */ | |
4689 len -= 2; | |
4690 } | |
45332 | 4691 |
13179 | 4692 if (len > 1 && (tmp[len - 1] == '/')) |
4693 { | |
4694 char *tmp1 = (char *) alloca (len + 1); | |
4695 strcpy (tmp1, tmp); | |
4696 tmp1[len - 1] = 0; | |
4697 tmp = tmp1; | |
4698 } | |
4699 return chdir (tmp); | |
4700 } | |
4701 #endif | |
4702 | |
4703 #ifdef tzset | |
4704 #undef tzset | |
4705 extern void tzset (void); | |
4706 | |
4707 void | |
4708 init_gettimeofday () | |
4709 { | |
4710 time_t ltm, gtm; | |
4711 struct tm *lstm; | |
4712 | |
4713 tzset (); | |
4714 ltm = gtm = time (NULL); | |
4715 ltm = mktime (lstm = localtime (<m)); | |
4716 gtm = mktime (gmtime (>m)); | |
4717 time_rec.tm_hour = 99; /* force gettimeofday to get date */ | |
4718 time_rec.tm_isdst = lstm->tm_isdst; | |
4719 dos_timezone_offset = time_rec.tm_gmtoff = (int)(gtm - ltm) / 60; | |
4720 } | |
4721 #endif | |
4722 | |
4723 #ifdef abort | |
4724 #undef abort | |
4725 void | |
4726 dos_abort (file, line) | |
4727 char *file; | |
4728 int line; | |
4729 { | |
4730 char buffer1[200], buffer2[400]; | |
4731 int i, j; | |
45332 | 4732 |
13179 | 4733 sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line); |
4734 for (i = j = 0; buffer1[i]; i++) { | |
4735 buffer2[j++] = buffer1[i]; | |
4736 buffer2[j++] = 0x70; | |
4737 } | |
4738 dosmemput (buffer2, j, (int)ScreenPrimary); | |
4739 ScreenSetCursor (2, 0); | |
4740 abort (); | |
4741 } | |
13744
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4742 #else |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4743 void |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4744 abort () |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4745 { |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4746 dos_ttcooked (); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4747 ScreenSetCursor (10, 0); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4748 cputs ("\r\n\nEmacs aborted!\r\n"); |
20240
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
4749 #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2 |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
4750 if (screen_virtual_segment) |
963e9cda8f04
Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents:
20036
diff
changeset
|
4751 dosv_refresh_virtual_screen (2 * 10 * screen_size_X, 4 * screen_size_X); |
14999 | 4752 /* Generate traceback, so we could tell whodunit. */ |
4753 signal (SIGINT, SIG_DFL); | |
4754 __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
|
4755 #else /* __DJGPP_MINOR__ >= 2 */ |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
4756 raise (SIGABRT); |
7e59f6e590da
(struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents:
24001
diff
changeset
|
4757 #endif /* __DJGPP_MINOR__ >= 2 */ |
13744
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4758 exit (2); |
120c884de8a2
(check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents:
13718
diff
changeset
|
4759 } |
13179 | 4760 #endif |
4761 | |
26729
f5dded41adcc
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26088
diff
changeset
|
4762 /* 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
|
4763 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
|
4764 #ifndef subprocesses |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4765 /* 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
|
4766 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
|
4767 #endif |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4768 |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4769 syms_of_msdos () |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4770 { |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4771 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
|
4772 staticpro (&recent_doskeys); |
50225
39746533995d
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
49600
diff
changeset
|
4773 |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4774 #ifndef HAVE_X_WINDOWS |
27019
3956e87adf2d
Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents:
26946
diff
changeset
|
4775 |
32271
4ff70fe0d99b
(top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents:
30840
diff
changeset
|
4776 /* 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
|
4777 Qreverse = intern ("reverse"); |
ce3bf4da00a9
(vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents:
28008
diff
changeset
|
4778 staticpro (&Qreverse); |
23825
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
4779 |
085b163b6115
(Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
23815
diff
changeset
|
4780 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
|
4781 doc: /* *Glyph to display instead of chars not supported by current codepage. |
99540
c5c8f07bc47c
* w32-fns.el (w32-shell-dos-semantics):
Juanma Barranquero <lekktu@gmail.com>
parents:
98030
diff
changeset
|
4782 This variable is used only by MS-DOS terminals. */); |
55662
4cea1f00f7bb
(syms_of_msdos): Initialize dos-unsupported-char-glyph with make_number.
Eli Zaretskii <eliz@gnu.org>
parents:
55650
diff
changeset
|
4783 Vdos_unsupported_char_glyph = make_number ('\177'); |
43357
c89a11a2baf6
(x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
43236
diff
changeset
|
4784 |
19334
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4785 #endif |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4786 #ifndef subprocesses |
c7cec07cb0e0
(syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents:
19295
diff
changeset
|
4787 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
|
4788 doc: /* *Non-nil means delete processes immediately when they exit. |
74570
3f35703291af
(syms_of_msdos) <delete-exited-processes>: Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
74145
diff
changeset
|
4789 A value of 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
|
4790 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
|
4791 #endif |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4792 |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4793 defsubr (&Srecent_doskeys); |
15186
242bddc25e5a
(syms_of_msdos): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
15174
diff
changeset
|
4794 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
|
4795 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
|
4796 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
|
4797 defsubr (&Smsdos_set_mouse_buttons); |
13305
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4798 } |
63a43c4b29b2
(IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents:
13274
diff
changeset
|
4799 |
5503 | 4800 #endif /* MSDOS */ |
52401 | 4801 |
4802 /* arch-tag: db404e92-52a5-475f-9eb2-1cb78dd05f30 | |
4803 (do not change this comment) */ |