annotate src/msdos.c @ 45170:1f468f3ca959

(ange-ftp-re-read-dir): Don't hide it behind the autoload-cookie. Remove comment.
author Markus Rost <rost@math.uni-bielefeld.de>
date Tue, 07 May 2002 19:33:36 +0000
parents 7a20e252e50a
children a5bfb38230e3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19871
847fbc8725a9 Switch to raw-text as coding system.
Richard M. Stallman <rms@gnu.org>
parents: 19864
diff changeset
1 /* MS-DOS specific C utilities. -*- coding: raw-text -*-
36513
f022afc9cdcb Update copyright notice.
Eli Zaretskii <eliz@gnu.org>
parents: 36483
diff changeset
2 Copyright (C) 1993, 94, 95, 96, 97, 1999, 2000, 2001
f022afc9cdcb Update copyright notice.
Eli Zaretskii <eliz@gnu.org>
parents: 36483
diff changeset
3 Free Software Foundation, Inc.
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
10504
8a1bd0598b49 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 10501
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 any later version.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 GNU General Public License for more details.
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14157
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14157
diff changeset
20 Boston, MA 02111-1307, USA. */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
22 /* Contributed by Morten Welinder */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
23 /* New display, keyboard, and mouse control by Kim F. Storm */
7666
13a977e6777a (dos_rawgetc): Doc fix. Make C-, S-, and M- modifiers
Richard M. Stallman <rms@gnu.org>
parents: 7523
diff changeset
24
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 /* Note: some of the stuff here was taken from end of sysdep.c in demacs. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
5980
a203b7c30300 Use <...> for config.h.
Richard M. Stallman <rms@gnu.org>
parents: 5503
diff changeset
27 #include <config.h>
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #ifdef MSDOS
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include "lisp.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include <stdio.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 #include <sys/param.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 #include <sys/time.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 #include <dos.h>
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
37 #include <errno.h>
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
38 #include <string.h> /* for bzero and string functions */
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
39 #include <sys/stat.h> /* for _fixpath */
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
40 #include <unistd.h> /* for chdir, dup, dup2, etc. */
42192
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
41 #include <dir.h> /* for getdisk */
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
42 #if __DJGPP__ >= 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
43 #include <fcntl.h>
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
44 #include <io.h> /* for setmode */
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
45 #include <dpmi.h> /* for __dpmi_xxx stuff */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
46 #include <sys/farptr.h> /* for _farsetsel, _farnspokeb */
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
47 #include <libc/dosio.h> /* for _USE_LFN */
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
48 #include <conio.h> /* for cputs */
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
49 #endif
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
50
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 #include "msdos.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 #include "systime.h"
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
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
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
57 #include "termopts.h"
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
58 #include "charset.h"
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
59 #include "coding.h"
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
60 #include "disptab.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 #include "frame.h"
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
62 #include "window.h"
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
63 #include "buffer.h"
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
64 #include "commands.h"
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
65 #include "blockinput.h"
30711
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
66 #include "keyboard.h"
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 #include <go32.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 #include <pc.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 #include <ctype.h>
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 /* #include <process.h> */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 /* Damn that local process.h! Instead we can define P_WAIT ourselves. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 #define P_WAIT 1
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
74 #ifndef _USE_LFN
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
75 #define _USE_LFN 0
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
76 #endif
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
77
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
78 #ifndef _dos_ds
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
79 #define _dos_ds _go32_info_block.selector_for_linear_memory
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
80 #endif
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
81
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
82 #if __DJGPP__ > 1
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
83
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
84 #include <signal.h>
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
85 #include "syssignal.h"
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
86
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
87 #ifndef SYSTEM_MALLOC
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
88
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
89 #ifdef GNU_MALLOC
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
90
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
91 /* If other `malloc' than ours is used, force our `sbrk' behave like
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
92 Unix programs expect (resize memory blocks to keep them contiguous).
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
93 If `sbrk' from `ralloc.c' is NOT used, also zero-out sbrk'ed memory,
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
94 because that's what `gmalloc' expects to get. */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
95 #include <crt0.h>
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
96
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
97 #ifdef REL_ALLOC
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
98 int _crt0_startup_flags = _CRT0_FLAG_UNIX_SBRK;
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
99 #else /* not REL_ALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
100 int _crt0_startup_flags = (_CRT0_FLAG_UNIX_SBRK | _CRT0_FLAG_FILL_SBRK_MEMORY);
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
101 #endif /* not REL_ALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
102 #endif /* GNU_MALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
103
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
104 #endif /* not SYSTEM_MALLOC */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
105 #endif /* __DJGPP__ > 1 */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
106
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
107 static unsigned long
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
108 event_timestamp ()
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
109 {
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
110 struct time t;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
111 unsigned long s;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
112
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
113 gettime (&t);
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
114 s = t.ti_min;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
115 s *= 60;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
116 s += t.ti_sec;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
117 s *= 1000;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
118 s += t.ti_hund * 10;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
119
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
120 return s;
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
121 }
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
122
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
123
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
124 /* ------------------------ Mouse control ---------------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
125 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
126 * Coordinates are in screen positions and zero based.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
127 * Mouse buttons are numbered from left to right and also zero based.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
128 */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
28553
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
130 /* This used to be in termhooks.h, but mainstream Emacs code no longer
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
131 uses it, and it was removed... */
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
132 #define NUM_MOUSE_BUTTONS (5)
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
133
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
134 int have_mouse; /* 0: no, 1: enabled, -1: disabled */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
135 static int mouse_visible;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
137 static int mouse_last_x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
138 static int mouse_last_y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
140 static int mouse_button_translate[NUM_MOUSE_BUTTONS];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
141 static int mouse_button_count;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
143 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
144 mouse_on ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
145 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
146 union REGS regs;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
148 if (have_mouse > 0 && !mouse_visible)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
149 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
150 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
151 fprintf (termscript, "<M_ON>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
152 regs.x.ax = 0x0001;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
153 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
154 mouse_visible = 1;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
158 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
159 mouse_off ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
161 union REGS regs;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
163 if (have_mouse > 0 && mouse_visible)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
165 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
166 fprintf (termscript, "<M_OFF>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
167 regs.x.ax = 0x0002;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
168 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
169 mouse_visible = 0;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
173 static void
30532
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
174 mouse_setup_buttons (int n_buttons)
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
175 {
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
176 if (n_buttons == 3)
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
177 {
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
178 mouse_button_count = 3;
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
179 mouse_button_translate[0] = 0; /* Left */
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
180 mouse_button_translate[1] = 2; /* Middle */
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
181 mouse_button_translate[2] = 1; /* Right */
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
182 }
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
183 else /* two, what else? */
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
184 {
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
185 mouse_button_count = 2;
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
186 mouse_button_translate[0] = 0;
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
187 mouse_button_translate[1] = 1;
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
188 }
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
189 }
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
190
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
191 DEFUN ("msdos-set-mouse-buttons", Fmsdos_set_mouse_buttons, Smsdos_set_mouse_buttons,
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
192 1, 1, "NSet number of mouse buttons to: ",
41940
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
193 doc: /* Set the number of mouse buttons to use by Emacs.
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
194 This is useful with mice that report the number of buttons inconsistently,
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
195 e.g., if the number of buttons is reported as 3, but Emacs only sees 2 of
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
196 them. This happens with wheeled mice on Windows 9X, for example. */)
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
197 (nbuttons)
30532
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
198 Lisp_Object nbuttons;
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
199 {
34561
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
200 int n;
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
201
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40082
diff changeset
202 CHECK_NUMBER (nbuttons);
34561
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
203 n = XINT (nbuttons);
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
204 if (n < 2 || n > 3)
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
205 Fsignal (Qargs_out_of_range,
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
206 Fcons (build_string ("only 2 or 3 mouse buttons are supported"),
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
207 Fcons (nbuttons, Qnil)));
62530d6f561d (Fmsdos_set_mouse_buttons): Signal an error if the
Eli Zaretskii <eliz@gnu.org>
parents: 34483
diff changeset
208 mouse_setup_buttons (n);
30532
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
209 return Qnil;
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
210 }
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
211
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
212 static void
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
213 mouse_get_xy (int *x, int *y)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
214 {
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
215 union REGS regs;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
216
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
217 regs.x.ax = 0x0003;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
218 int86 (0x33, &regs, &regs);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
219 *x = regs.x.cx / 8;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
220 *y = regs.x.dx / 8;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
221 }
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
222
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
224 mouse_moveto (x, y)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
225 int x, y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
227 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
228
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
229 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
230 fprintf (termscript, "<M_XY=%dx%d>", x, y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
231 regs.x.ax = 0x0004;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
232 mouse_last_x = regs.x.cx = x * 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
233 mouse_last_y = regs.x.dx = y * 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
234 int86 (0x33, &regs, &regs);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
237 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
238 mouse_pressed (b, xp, yp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
239 int b, *xp, *yp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
240 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
241 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
242
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
243 if (b >= mouse_button_count)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
244 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
245 regs.x.ax = 0x0005;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
246 regs.x.bx = mouse_button_translate[b];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
247 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
248 if (regs.x.bx)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
249 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
250 return (regs.x.bx != 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
251 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
252
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
253 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
254 mouse_released (b, xp, yp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
255 int b, *xp, *yp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
256 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
257 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
258
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
259 if (b >= mouse_button_count)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
260 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
261 regs.x.ax = 0x0006;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
262 regs.x.bx = mouse_button_translate[b];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
263 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
264 if (regs.x.bx)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
265 *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
266 return (regs.x.bx != 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
267 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
268
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
269 static int
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
270 mouse_button_depressed (b, xp, yp)
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
271 int b, *xp, *yp;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
272 {
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
273 union REGS regs;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
274
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
275 if (b >= mouse_button_count)
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
276 return 0;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
277 regs.x.ax = 0x0003;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
278 int86 (0x33, &regs, &regs);
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
279 if ((regs.x.bx & (1 << mouse_button_translate[b])) != 0)
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
280 {
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
281 *xp = regs.x.cx / 8;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
282 *yp = regs.x.dx / 8;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
283 return 1;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
284 }
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
285 return 0;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
286 }
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
287
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
288 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
289 mouse_get_pos (f, insist, bar_window, part, x, y, time)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
290 FRAME_PTR *f;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
291 int insist;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
292 Lisp_Object *bar_window, *x, *y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
293 enum scroll_bar_part *part;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
294 unsigned long *time;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
295 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
296 int ix, iy;
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
297 Lisp_Object frame, tail;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
298
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
299 /* Clear the mouse-moved flag for every frame on this display. */
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
300 FOR_EACH_FRAME (tail, frame)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
301 XFRAME (frame)->mouse_moved = 0;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
302
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
303 *f = SELECTED_FRAME();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
304 *bar_window = Qnil;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
305 mouse_get_xy (&ix, &iy);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
306 *time = event_timestamp ();
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
307 *x = make_number (mouse_last_x = ix);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
308 *y = make_number (mouse_last_y = iy);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
309 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
310
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
311 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
312 mouse_check_moved ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
313 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
314 int x, y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
315
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
316 mouse_get_xy (&x, &y);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
317 SELECTED_FRAME()->mouse_moved |= (x != mouse_last_x || y != mouse_last_y);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
318 mouse_last_x = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
319 mouse_last_y = y;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321
30711
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
322 /* Force the mouse driver to ``forget'' about any button clicks until
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
323 now. */
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
324 static void
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
325 mouse_clear_clicks (void)
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
326 {
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
327 int b;
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
328
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
329 for (b = 0; b < mouse_button_count; b++)
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
330 {
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
331 int dummy_x, dummy_y;
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
332
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
333 (void) mouse_pressed (b, &dummy_x, &dummy_y);
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
334 (void) mouse_released (b, &dummy_x, &dummy_y);
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
335 }
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
336 }
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
337
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
338 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
339 mouse_init ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
341 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
342
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
343 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
344 fprintf (termscript, "<M_INIT>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
345
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
346 regs.x.ax = 0x0021;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
347 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
348
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
349 /* Reset the mouse last press/release info. It seems that Windows
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
350 doesn't do that automatically when function 21h is called, which
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
351 causes Emacs to ``remember'' the click that switched focus to the
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
352 window just before Emacs was started from that window. */
30711
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
353 mouse_clear_clicks ();
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
354
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
355 regs.x.ax = 0x0007;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
356 regs.x.cx = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
357 regs.x.dx = 8 * (ScreenCols () - 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
358 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
359
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
360 regs.x.ax = 0x0008;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
361 regs.x.cx = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
362 regs.x.dx = 8 * (ScreenRows () - 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
363 int86 (0x33, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
364
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
365 mouse_moveto (0, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
366 mouse_visible = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
367 }
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
368
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
369 /* ------------------------- Screen control ----------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
370 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
371 */
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
373 static int internal_terminal = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
374
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
375 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
376 extern unsigned char ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
377 static int screen_face;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
378
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
379 static int screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
380 static int screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
381 static int screen_size;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
382
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
383 static int current_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
384 static int current_pos_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
385 static int new_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
386 static int new_pos_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
387
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
388 static void *startup_screen_buffer;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
389 static int startup_screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
390 static int startup_screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
391 static int startup_pos_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
392 static int startup_pos_Y;
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
393 static unsigned char startup_screen_attrib;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
394
23815
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
395 static clock_t startup_time;
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
396
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
397 static int term_setup_done;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
398
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
399 static unsigned short outside_cursor;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
400
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
401 /* Similar to the_only_frame. */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
402 struct x_output the_only_x_display;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
403
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
404 /* Support for DOS/V (allows Japanese characters to be displayed on
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
405 standard, non-Japanese, ATs). Only supported for DJGPP v2 and later. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
406
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
407 /* Holds the address of the text-mode screen buffer. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
408 static unsigned long screen_old_address = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
409 /* Segment and offset of the virtual screen. If 0, DOS/V is NOT loaded. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
410 static unsigned short screen_virtual_segment = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
411 static unsigned short screen_virtual_offset = 0;
24680
fc493aad59ad (unibyte_display_via_language_environment): Add extern.
Andrew Innes <andrewi@gnu.org>
parents: 24678
diff changeset
412 /* A flag to control how to display unibyte 8-bit characters. */
fc493aad59ad (unibyte_display_via_language_environment): Add extern.
Andrew Innes <andrewi@gnu.org>
parents: 24678
diff changeset
413 extern int unibyte_display_via_language_environment;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
414
44695
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
415 Lisp_Object Qbar, Qhbar;
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
416
41406
9ba7c0fd50b7 (IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents: 41122
diff changeset
417 /* The screen colors of the curent frame, which serve as the default
9ba7c0fd50b7 (IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents: 41122
diff changeset
418 colors for newly-created frames. */
9ba7c0fd50b7 (IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents: 41122
diff changeset
419 static int initial_screen_colors[2];
9ba7c0fd50b7 (IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents: 41122
diff changeset
420
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
421 #if __DJGPP__ > 1
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
422 /* Update the screen from a part of relocated DOS/V screen buffer which
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
423 begins at OFFSET and includes COUNT characters. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
424 static void
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
425 dosv_refresh_virtual_screen (int offset, int count)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
426 {
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
427 __dpmi_regs regs;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
428
28932
f8b0ac62f238 Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents: 28553
diff changeset
429 if (offset < 0 || count < 0) /* paranoia; invalid values crash DOS/V */
21489
a1a2beb0a09c (dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents: 21415
diff changeset
430 return;
a1a2beb0a09c (dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents: 21415
diff changeset
431
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
432 regs.h.ah = 0xff; /* update relocated screen */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
433 regs.x.es = screen_virtual_segment;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
434 regs.x.di = screen_virtual_offset + offset;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
435 regs.x.cx = count;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
436 __dpmi_int (0x10, &regs);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
437 }
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
438 #endif
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
439
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
440 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
441 dos_direct_output (y, x, buf, len)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
442 int y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
443 int x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
444 char *buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
445 int len;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 {
21489
a1a2beb0a09c (dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents: 21415
diff changeset
447 int t0 = 2 * (x + y * screen_size_X);
a1a2beb0a09c (dosv_refresh_virtual_screen): Do not use negative arguments.
Eli Zaretskii <eliz@gnu.org>
parents: 21415
diff changeset
448 int t = t0 + (int) ScreenPrimary;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
449 int l0 = len;
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
450
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
451 #if (__DJGPP__ < 2)
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
452 while (--len >= 0) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
453 dosmemput (buf++, 1, t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
454 t += 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
455 }
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
456 #else
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
457 /* This is faster. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
458 for (_farsetsel (_dos_ds); --len >= 0; t += 2, buf++)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
459 _farnspokeb (t, *buf);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
460
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
461 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
462 dosv_refresh_virtual_screen (t0, l0);
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
463 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 }
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
465 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 /* Flash the screen as a substitute for BEEPs. */
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
469 #if (__DJGPP__ < 2)
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
470 static void
7667
bae9c0fa1c2f (do_visible_bell): Renamed from visible_bell to avoid
Richard M. Stallman <rms@gnu.org>
parents: 7666
diff changeset
471 do_visible_bell (xorattr)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 unsigned char xorattr;
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 {
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
474 asm volatile
38314
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
475 (" movb $1,%%dl \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
476 visible_bell_0: \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
477 movl _ScreenPrimary,%%eax \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
478 call dosmemsetup \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
479 movl %%eax,%%ebx \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
480 movl %1,%%ecx \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
481 movb %0,%%al \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
482 incl %%ebx \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
483 visible_bell_1: \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
484 xorb %%al,%%gs:(%%ebx) \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
485 addl $2,%%ebx \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
486 decl %%ecx \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
487 jne visible_bell_1 \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
488 decb %%dl \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
489 jne visible_bell_3 \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
490 visible_bell_2: \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
491 movzwl %%ax,%%eax \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
492 movzwl %%ax,%%eax \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
493 movzwl %%ax,%%eax \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
494 movzwl %%ax,%%eax \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
495 decw %%cx \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
496 jne visible_bell_2 \n\
5fa40c87fc5b (do_visible_bell): Add \n\ at the end of each line of
Eli Zaretskii <eliz@gnu.org>
parents: 36513
diff changeset
497 jmp visible_bell_0 \n\
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
498 visible_bell_3:"
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
499 : /* no output */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
500 : "m" (xorattr), "g" (screen_size)
8183
d35fd7fd0ef8 (install_ctrl_break_check): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7821
diff changeset
501 : "%eax", "%ebx", /* "%gs",*/ "%ecx", "%edx");
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
504 static void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
505 ScreenVisualBell (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
506 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
507 /* This creates an xor-mask that will swap the default fore- and
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
508 background colors. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
509 do_visible_bell (((the_only_x_display.foreground_pixel
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
510 ^ the_only_x_display.background_pixel)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
511 * 0x11) & 0x7f);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
512 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
513 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
514
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
515 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
516
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
517 static int blink_bit = -1; /* the state of the blink bit at startup */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
518
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
519 /* Enable bright background colors. */
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
520 static void
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
521 bright_bg (void)
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
522 {
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
523 union REGS regs;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
524
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
525 /* Remember the original state of the blink/bright-background bit.
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
526 It is stored at 0040:0065h in the BIOS data area. */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
527 if (blink_bit == -1)
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
528 blink_bit = (_farpeekb (_dos_ds, 0x465) & 0x20) == 0x20;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
529
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
530 regs.h.bl = 0;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
531 regs.x.ax = 0x1003;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
532 int86 (0x10, &regs, &regs);
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
533 }
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
534
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
535 /* Disable bright background colors (and enable blinking) if we found
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
536 the video system in that state at startup. */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
537 static void
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
538 maybe_enable_blinking (void)
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
539 {
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
540 if (blink_bit == 1)
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
541 {
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
542 union REGS regs;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
543
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
544 regs.h.bl = 1;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
545 regs.x.ax = 0x1003;
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
546 int86 (0x10, &regs, &regs);
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
547 }
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
548 }
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
549
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
550 /* Return non-zero if the system has a VGA adapter. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
551 static int
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
552 vga_installed (void)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
553 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
554 union REGS regs;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
555
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
556 regs.x.ax = 0x1a00;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
557 int86 (0x10, &regs, &regs);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
558 if (regs.h.al == 0x1a && regs.h.bl > 5 && regs.h.bl < 13)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
559 return 1;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
560 return 0;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
561 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
562
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
563 /* Set the screen dimensions so that it can show no less than
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
564 ROWS x COLS frame. */
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
565
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
566 void
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
567 dos_set_window_size (rows, cols)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
568 int *rows, *cols;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
569 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
570 char video_name[30];
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
571 Lisp_Object video_mode;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
572 int video_mode_value;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
573 int have_vga = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
574 union REGS regs;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
575 int current_rows = ScreenRows (), current_cols = ScreenCols ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
576
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
577 if (*rows == current_rows && *cols == current_cols)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
578 return;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
579
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
580 mouse_off ();
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
581 have_vga = vga_installed ();
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
582
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
583 /* If the user specified a special video mode for these dimensions,
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
584 use that mode. */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
585 sprintf (video_name, "screen-dimensions-%dx%d", *rows, *cols);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
586 video_mode = XSYMBOL (Fintern_soft (build_string (video_name),
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
587 Qnil))-> value;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
588
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
589 if (INTEGERP (video_mode)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
590 && (video_mode_value = XINT (video_mode)) > 0)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
591 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
592 regs.x.ax = video_mode_value;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
593 int86 (0x10, &regs, &regs);
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
594
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
595 if (have_mouse)
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
596 {
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
597 /* Must hardware-reset the mouse, or else it won't update
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
598 its notion of screen dimensions for some non-standard
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
599 video modes. This is *painfully* slow... */
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
600 regs.x.ax = 0;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
601 int86 (0x33, &regs, &regs);
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
602 }
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
603 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
604
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
605 /* Find one of the dimensions supported by standard EGA/VGA
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
606 which gives us at least the required dimensions. */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
607
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
608 #if __DJGPP__ > 1
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
609
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
610 else
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
611 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
612 static struct {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
613 int rows;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
614 int need_vga;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
615 } std_dimension[] = {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
616 {25, 0},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
617 {28, 1},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
618 {35, 0},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
619 {40, 1},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
620 {43, 0},
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
621 {50, 1}
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
622 };
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
623 int i = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
624
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
625 while (i < sizeof (std_dimension) / sizeof (std_dimension[0]))
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
626 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
627 if (std_dimension[i].need_vga <= have_vga
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
628 && std_dimension[i].rows >= *rows)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
629 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
630 if (std_dimension[i].rows != current_rows
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
631 || *cols != current_cols)
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
632 _set_screen_lines (std_dimension[i].rows);
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
633 break;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
634 }
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
635 i++;
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
636 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
637 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
638
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
639 #else /* not __DJGPP__ > 1 */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
640
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
641 else if (*rows <= 25)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
642 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
643 if (current_rows != 25 || current_cols != 80)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
644 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
645 regs.x.ax = 3;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
646 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
647 regs.x.ax = 0x1101;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
648 regs.h.bl = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
649 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
650 regs.x.ax = 0x1200;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
651 regs.h.bl = 32;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
652 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
653 regs.x.ax = 3;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
654 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
655 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
656 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
657 else if (*rows <= 50)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
658 if (have_vga && (current_rows != 50 || current_cols != 80)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
659 || *rows <= 43 && (current_rows != 43 || current_cols != 80))
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
660 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
661 regs.x.ax = 3;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
662 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
663 regs.x.ax = 0x1112;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
664 regs.h.bl = 0;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
665 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
666 regs.x.ax = 0x1200;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
667 regs.h.bl = 32;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
668 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
669 regs.x.ax = 0x0100;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
670 regs.x.cx = 7;
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
671 int86 (0x10, &regs, &regs);
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
672 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
673 #endif /* not __DJGPP__ > 1 */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
674
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
675 if (have_mouse)
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
676 {
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
677 mouse_init ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
678 mouse_on ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
679 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
680
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
681 /* Tell the caller what dimensions have been REALLY set. */
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
682 *rows = ScreenRows ();
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
683 *cols = ScreenCols ();
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
684
32730
5d98418d7b78 (dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents: 32546
diff changeset
685 /* Update Emacs' notion of screen dimensions. */
5d98418d7b78 (dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents: 32546
diff changeset
686 screen_size_X = *cols;
5d98418d7b78 (dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents: 32546
diff changeset
687 screen_size_Y = *rows;
5d98418d7b78 (dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents: 32546
diff changeset
688 screen_size = *cols * *rows;
5d98418d7b78 (dos_set_window_size): Update screen dimension variables.
Eli Zaretskii <eliz@gnu.org>
parents: 32546
diff changeset
689
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
690 #if __DJGPP__ > 1
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
691 /* If the dimensions changed, the mouse highlight info is invalid. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
692 if (current_rows != *rows || current_cols != *cols)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
693 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
694 struct frame *f = SELECTED_FRAME();
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
695 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
696 Lisp_Object window = dpyinfo->mouse_face_window;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
697
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
698 if (! NILP (window) && XFRAME (XWINDOW (window)->frame) == f)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
699 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
700 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
701 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
702 dpyinfo->mouse_face_window = Qnil;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
703 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
704 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
705 #endif
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
706
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
707 /* Enable bright background colors. */
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
708 bright_bg ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
709
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
710 /* FIXME: I'm not sure the above will run at all on DOS/V. But let's
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
711 be defensive anyway. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
712 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
713 dosv_refresh_virtual_screen (0, *cols * *rows);
14284
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
714 }
0eaecdc13142 (dos_set_window_size): New function; switches the screen
Karl Heuer <kwzh@gnu.org>
parents: 14279
diff changeset
715
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
716 /* If we write a character in the position where the mouse is,
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
717 the mouse cursor may need to be refreshed. */
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
718
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
719 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
720 mouse_off_maybe ()
7744
da18793f532d (output_string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7667
diff changeset
721 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
722 int x, y;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
723
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
724 if (!mouse_visible)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
725 return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
726
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
727 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
728 if (y != new_pos_Y || x < new_pos_X)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
729 return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
730
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
731 mouse_off ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
732 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
733
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
734 #define DEFAULT_CURSOR_START (-1)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
735 #define DEFAULT_CURSOR_WIDTH (-1)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
736 #define BOX_CURSOR_WIDTH (-32)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
737
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
738 /* Set cursor to begin at scan line START_LINE in the character cell
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
739 and extend for WIDTH scan lines. Scan lines are counted from top
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
740 of the character cell, starting from zero. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
741 static void
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
742 msdos_set_cursor_shape (struct frame *f, int start_line, int width)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
743 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
744 #if __DJGPP__ > 1
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
745 unsigned desired_cursor;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
746 __dpmi_regs regs;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
747 int max_line, top_line, bot_line;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
748
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
749 /* Avoid the costly BIOS call if F isn't the currently selected
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
750 frame. Allow for NULL as unconditionally meaning the selected
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
751 frame. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
752 if (f && f != SELECTED_FRAME())
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
753 return;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
754
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
755 /* The character cell size in scan lines is stored at 40:85 in the
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
756 BIOS data area. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
757 max_line = _farpeekw (_dos_ds, 0x485) - 1;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
758 switch (max_line)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
759 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
760 default: /* this relies on CGA cursor emulation being ON! */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
761 case 7:
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
762 bot_line = 7;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
763 break;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
764 case 9:
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
765 bot_line = 9;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
766 break;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
767 case 13:
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
768 bot_line = 12;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
769 break;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
770 case 15:
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
771 bot_line = 14;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
772 break;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
773 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
774
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
775 if (width < 0)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
776 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
777 if (width == BOX_CURSOR_WIDTH)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
778 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
779 top_line = 0;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
780 bot_line = max_line;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
781 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
782 else if (start_line != DEFAULT_CURSOR_START)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
783 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
784 top_line = start_line;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
785 bot_line = top_line - width - 1;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
786 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
787 else if (width != DEFAULT_CURSOR_WIDTH)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
788 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
789 top_line = 0;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
790 bot_line = -1 - width;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
791 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
792 else
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
793 top_line = bot_line + 1;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
794 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
795 else if (width == 0)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
796 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
797 /* [31, 0] seems to DTRT for all screen sizes. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
798 top_line = 31;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
799 bot_line = 0;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
800 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
801 else /* WIDTH is positive */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
802 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
803 if (start_line != DEFAULT_CURSOR_START)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
804 bot_line = start_line;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
805 top_line = bot_line - (width - 1);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
806 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
807
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
808 /* If the current cursor shape is already what they want, we are
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
809 history here. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
810 desired_cursor = ((top_line & 0x1f) << 8) | (bot_line & 0x1f);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
811 if (desired_cursor == _farpeekw (_dos_ds, 0x460))
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
812 return;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
813
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
814 regs.h.ah = 1;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
815 regs.x.cx = desired_cursor;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
816 __dpmi_int (0x10, &regs);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
817 #endif /* __DJGPP__ > 1 */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
818 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
819
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
820 static void
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
821 IT_set_cursor_type (struct frame *f, Lisp_Object cursor_type)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
822 {
44695
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
823 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
824 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
825 /* Just BAR means the normal EGA/VGA cursor. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
826 msdos_set_cursor_shape (f, DEFAULT_CURSOR_START, DEFAULT_CURSOR_WIDTH);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
827 }
44695
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
828 else if (CONSP (cursor_type)
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
829 && (EQ (XCAR (cursor_type), Qbar)
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
830 || EQ (XCAR (cursor_type), Qhbar)))
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
831 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
832 Lisp_Object bar_parms = XCDR (cursor_type);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
833 int width;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
834
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
835 if (INTEGERP (bar_parms))
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
836 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
837 /* 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
838 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
839 width = XINT (bar_parms);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
840 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
841 width);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
842 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
843 else if (CONSP (bar_parms)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
844 && INTEGERP (XCAR (bar_parms))
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
845 && INTEGERP (XCDR (bar_parms)))
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
846 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
847 int start_line = XINT (XCDR (bar_parms));
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
848
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
849 width = XINT (XCAR (bar_parms));
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
850 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
851 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
852 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
853 else
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
854 /* Treat anything unknown as "box cursor". This includes nil, so
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
855 that a frame which doesn't specify a cursor type gets a box,
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
856 which is the default in Emacs. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
857 msdos_set_cursor_shape (f, 0, BOX_CURSOR_WIDTH);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
858 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
859
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
860 static void
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
861 IT_ring_bell (void)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
862 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
863 if (visible_bell)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
864 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
865 mouse_off ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
866 ScreenVisualBell ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
867 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
868 else
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
869 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
870 union REGS inregs, outregs;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
871 inregs.h.ah = 2;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
872 inregs.h.dl = 7;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
873 intdos (&inregs, &outregs);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
874 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
875 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
876
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
877 /* 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
878 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
879 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
880 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
881 the video RAM. */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
882 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
883 IT_set_face (int face)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
884 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
885 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
886 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
887 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
888 unsigned long fg, bg, dflt_fg, dflt_bg;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
889
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
890 if (!fp)
25214
acfe5b9d7233 (IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents: 25110
diff changeset
891 {
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
892 fp = dfp;
25214
acfe5b9d7233 (IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents: 25110
diff changeset
893 /* 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
894 cached. */
acfe5b9d7233 (IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents: 25110
diff changeset
895 if (!fp)
acfe5b9d7233 (IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents: 25110
diff changeset
896 abort ();
acfe5b9d7233 (IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents: 25110
diff changeset
897 }
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
898 screen_face = face;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
899 fg = fp->foreground;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
900 bg = fp->background;
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
901 dflt_fg = dfp->foreground;
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
902 dflt_bg = dfp->background;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
903
40082
0eaf29d6544e (IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents: 38314
diff changeset
904 /* 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
905 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
906 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
907 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
908 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
909 fg = FRAME_FOREGROUND_PIXEL (sf);
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26729
diff changeset
910 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
911 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
912 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
913 bg = FRAME_BACKGROUND_PIXEL (sf);
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26729
diff changeset
914 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
915 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
916
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
917 /* 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
918 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
919 {
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
920 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
921
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
922 fg = bg;
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
923 bg = tem;
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
924 }
34676
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
925 /* If the user requested inverse video, obey. */
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
926 if (inverse_video)
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
927 {
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
928 unsigned long tem2 = fg;
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
929
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
930 fg = bg;
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
931 bg = tem2;
fbd6630ebdaa (IT_set_face): Obey inverse_video.
Eli Zaretskii <eliz@gnu.org>
parents: 34657
diff changeset
932 }
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
933 if (termscript)
40082
0eaf29d6544e (IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents: 38314
diff changeset
934 fprintf (termscript, "<FACE %d: %d/%d[FG:%d/BG:%d]>", face,
0eaf29d6544e (IT_reassert_line_highlight, IT_change_line_highlight): Functions removed.
Miles Bader <miles@gnu.org>
parents: 38314
diff changeset
935 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
936 if (fg >= 0 && fg < 16)
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
937 {
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
938 ScreenAttrib &= 0xf0;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
939 ScreenAttrib |= fg;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
940 }
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
941 if (bg >= 0 && bg < 16)
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
942 {
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
943 ScreenAttrib &= 0x0f;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
944 ScreenAttrib |= ((bg & 0x0f) << 4);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
945 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
946 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
947
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
948 Lisp_Object Vdos_unsupported_char_glyph;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
949
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
950 static void
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
951 IT_write_glyphs (struct glyph *str, int str_len)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
952 {
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
953 unsigned char *screen_buf, *screen_bp, *screen_buf_end, *bp;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
954 int unsupported_face = FAST_GLYPH_FACE (Vdos_unsupported_char_glyph);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
955 unsigned unsupported_char= FAST_GLYPH_CHAR (Vdos_unsupported_char_glyph);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
956 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
957 register int sl = str_len;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
958 register int tlen = GLYPH_TABLE_LENGTH;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
959 register Lisp_Object *tbase = GLYPH_TABLE_BASE;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
960
29613
7da06cd67660 (IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents: 29098
diff changeset
961 /* If terminal_coding does any conversion, use it, otherwise use
7da06cd67660 (IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents: 29098
diff changeset
962 safe_terminal_coding. We can't use CODING_REQUIRE_ENCODING here
7da06cd67660 (IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents: 29098
diff changeset
963 because it always returns 1 if terminal_coding.src_multibyte is 1. */
7da06cd67660 (IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents: 29098
diff changeset
964 struct coding_system *coding =
7da06cd67660 (IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents: 29098
diff changeset
965 (terminal_coding.common_flags & CODING_REQUIRE_ENCODING_MASK
7da06cd67660 (IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents: 29098
diff changeset
966 ? &terminal_coding
7da06cd67660 (IT_write_glyphs): Don't use CODING_REQUIRE_ENCODING
Eli Zaretskii <eliz@gnu.org>
parents: 29098
diff changeset
967 : &safe_terminal_coding);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
968 struct frame *sf;
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
969
24001
fce0e760c4ab (IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents: 23971
diff changeset
970 /* 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
971 multibyte? */
fce0e760c4ab (IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents: 23971
diff changeset
972 int convert_unibyte_characters
24678
56fe3cae0f96 (unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents: 24593
diff changeset
973 = (NILP (current_buffer->enable_multibyte_characters)
56fe3cae0f96 (unibyte_display_via_language_environment):
Andrew Innes <andrewi@gnu.org>
parents: 24593
diff changeset
974 && 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
975
30835
45f168392f57 (IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents: 30826
diff changeset
976 unsigned char conversion_buffer[256];
45f168392f57 (IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents: 30826
diff changeset
977 int conversion_buffer_size = sizeof conversion_buffer;
45f168392f57 (IT_write_glyphs): Use a locally declared conversion_buffer.
Kenichi Handa <handa@m17n.org>
parents: 30826
diff changeset
978
26946
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
979 if (str_len <= 0) return;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
980
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
981 screen_buf = screen_bp = alloca (str_len * 2);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
982 screen_buf_end = screen_buf + str_len * 2;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
983 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
984
acfe5b9d7233 (IT_set_face): Abort if the default face is not realized
Eli Zaretskii <eliz@gnu.org>
parents: 25110
diff changeset
985 /* 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
986 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
987 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
988 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
989 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
990 IT_set_face (DEFAULT_FACE_ID);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
991
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
992 /* 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
993 the tail. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
994 terminal_coding.mode &= ~CODING_MODE_LAST_BLOCK;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
995 while (sl)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
996 {
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
997 int cf, chlen, enclen;
26946
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
998 unsigned char workbuf[MAX_MULTIBYTE_LENGTH], *buf;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
999 unsigned ch;
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1000
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1001 /* Glyphs with GLYPH_MASK_PADDING bit set are actually there
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1002 only for the redisplay code to know how many columns does
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1003 this character occupy on the screen. Skip padding glyphs. */
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
1004 if (CHAR_GLYPH_PADDING_P (*str))
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1005 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1006 str++;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1007 sl--;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1008 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1009 else
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1010 {
27038
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1011 register GLYPH g = GLYPH_FROM_CHAR_GLYPH (*str);
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1012 int glyph_not_in_table = 0;
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1013
34657
9ff4148959a8 (IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents: 34561
diff changeset
1014 /* If g is negative, it means we have a multibyte character
9ff4148959a8 (IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents: 34561
diff changeset
1015 in *str. That's what GLYPH_FROM_CHAR_GLYPH returns for
9ff4148959a8 (IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents: 34561
diff changeset
1016 multibyte characters. */
27038
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1017 if (g < 0 || g >= tlen)
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1018 {
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1019 /* This glyph doesn't have an entry in Vglyph_table. */
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1020 ch = str->u.ch;
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1021 glyph_not_in_table = 1;
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1022 }
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1023 else
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1024 {
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1025 /* This glyph has an entry in Vglyph_table, so process
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1026 any aliases before testing for simpleness. */
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1027 GLYPH_FOLLOW_ALIASES (tbase, tlen, g);
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1028 ch = FAST_GLYPH_CHAR (g);
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1029 }
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1030
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1031 /* Convert the character code to multibyte, if they
27038
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1032 requested display via language environment. We only want
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1033 to convert unibyte characters to multibyte in unibyte
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1034 buffers! Otherwise, the 8-bit value in CH came from the
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1035 display table set up to display foreign characters. */
24001
fce0e760c4ab (IT_write_glyphs): Move constant expression out of the loop.
Eli Zaretskii <eliz@gnu.org>
parents: 23971
diff changeset
1036 if (SINGLE_BYTE_CHAR_P (ch) && convert_unibyte_characters
23926
f2d6df96a3c7 (IT_write_glyphs): Don't convert 7-bit ASCII characters via
Eli Zaretskii <eliz@gnu.org>
parents: 23825
diff changeset
1037 && (ch >= 0240
f2d6df96a3c7 (IT_write_glyphs): Don't convert 7-bit ASCII characters via
Eli Zaretskii <eliz@gnu.org>
parents: 23825
diff changeset
1038 || (ch >= 0200 && !NILP (Vnonascii_translation_table))))
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1039 ch = unibyte_char_to_multibyte (ch);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1040
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1041 /* Invalid characters are displayed with a special glyph. */
27038
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1042 if (! CHAR_VALID_P (ch, 0))
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1043 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1044 g = !NILP (Vdos_unsupported_char_glyph)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1045 ? Vdos_unsupported_char_glyph
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1046 : MAKE_GLYPH (sf, '\177', GLYPH_FACE (sf, g));
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1047 ch = FAST_GLYPH_CHAR (g);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1048 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1049
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1050 /* If the face of this glyph is different from the current
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1051 screen face, update the screen attribute byte. */
34657
9ff4148959a8 (IT_write_glyphs): Compute the glyph face from str->face_id.
Eli Zaretskii <eliz@gnu.org>
parents: 34561
diff changeset
1052 cf = str->face_id;
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1053 if (cf != screen_face)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1054 IT_set_face (cf); /* handles invalid faces gracefully */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1055
27038
e168198350dd (IT_write_glyphs): Track last changes to struct glyph.
Eli Zaretskii <eliz@gnu.org>
parents: 27019
diff changeset
1056 if (glyph_not_in_table || GLYPH_SIMPLE_P (tbase, tlen, g))
26946
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
1057 {
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
1058 /* We generate the multi-byte form of CH in WORKBUF. */
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
1059 chlen = CHAR_STRING (ch, workbuf);
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
1060 buf = workbuf;
9e0e23a92539 (IT_set_face): Don't swap face colors when highlight or
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
1061 }
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1062 else
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1063 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1064 /* We have a string in Vglyph_table. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1065 chlen = GLYPH_LENGTH (tbase, g);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1066 buf = GLYPH_STRING (tbase, g);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1067 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1068
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
1069 /* If the character is not multibyte, don't bother converting it. */
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1070 if (chlen == 1)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1071 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1072 *conversion_buffer = (unsigned char)ch;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1073 chlen = 0;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1074 enclen = 1;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1075 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1076 else
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1077 {
29098
c8a95c4dfd18 (IT_write_glyphs): Set coding->src_multibyte to 1.
Kenichi Handa <handa@m17n.org>
parents: 28932
diff changeset
1078 coding->src_multibyte = 1;
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1079 encode_coding (coding, buf, conversion_buffer, chlen,
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1080 conversion_buffer_size);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1081 chlen -= coding->consumed;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1082 enclen = coding->produced;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1083
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1084 /* Replace glyph codes that cannot be converted by
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1085 terminal_coding with Vdos_unsupported_char_glyph. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1086 if (*conversion_buffer == '?')
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1087 {
30840
de949e4ff09a (IT_write_glyphs): Convert cbp to unsigned char *.
Eli Zaretskii <eliz@gnu.org>
parents: 30835
diff changeset
1088 unsigned char *cbp = conversion_buffer;
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1089
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1090 while (cbp < conversion_buffer + enclen && *cbp == '?')
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1091 *cbp++ = unsupported_char;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1092 if (unsupported_face != screen_face)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1093 IT_set_face (unsupported_face);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1094 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1095 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1096
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1097 if (enclen + chlen > screen_buf_end - screen_bp)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1098 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1099 /* The allocated buffer for screen writes is too small.
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1100 Flush it and loop again without incrementing STR, so
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1101 that the next loop will begin with the same glyph. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1102 int nbytes = screen_bp - screen_buf;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1103
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1104 mouse_off_maybe ();
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1105 dosmemput (screen_buf, nbytes, (int)ScreenPrimary + offset);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1106 if (screen_virtual_segment)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1107 dosv_refresh_virtual_screen (offset, nbytes / 2);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1108 new_pos_X += nbytes / 2;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1109 offset += nbytes;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1110
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1111 /* Prepare to reuse the same buffer again. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1112 screen_bp = screen_buf;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1113 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1114 else
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1115 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1116 /* There's enough place in the allocated buffer to add
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1117 the encoding of this glyph. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1118
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1119 /* First, copy the encoded bytes. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1120 for (bp = conversion_buffer; enclen--; bp++)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1121 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1122 *screen_bp++ = (unsigned char)*bp;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1123 *screen_bp++ = ScreenAttrib;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1124 if (termscript)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1125 fputc (*bp, termscript);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1126 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1127
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1128 /* Now copy the bytes not consumed by the encoding. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1129 if (chlen > 0)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1130 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1131 buf += coding->consumed;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1132 while (chlen--)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1133 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1134 if (termscript)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1135 fputc (*buf, termscript);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1136 *screen_bp++ = (unsigned char)*buf++;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1137 *screen_bp++ = ScreenAttrib;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1138 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1139 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1140
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1141 /* Update STR and its remaining length. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1142 str++;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1143 sl--;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1144 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1145 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1146 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1147
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1148 /* Dump whatever is left in the screen buffer. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1149 mouse_off_maybe ();
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1150 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
1151 if (screen_virtual_segment)
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1152 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
1153 new_pos_X += (screen_bp - screen_buf) / 2;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1154
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1155 /* We may have to output some codes to terminate the writing. */
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1156 if (CODING_REQUIRE_FLUSHING (coding))
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1157 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1158 coding->mode |= CODING_MODE_LAST_BLOCK;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1159 encode_coding (coding, "", conversion_buffer, 0, conversion_buffer_size);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1160 if (coding->produced > 0)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1161 {
27775
5e0dd203f6e1 (IT_write_glyphs): Allocate a larger screen_buf as data
Eli Zaretskii <eliz@gnu.org>
parents: 27640
diff changeset
1162 screen_buf = alloca (coding->produced * 2);
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1163 for (screen_bp = screen_buf, bp = conversion_buffer;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1164 coding->produced--; bp++)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1165 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1166 *screen_bp++ = (unsigned char)*bp;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1167 *screen_bp++ = ScreenAttrib;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1168 if (termscript)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1169 fputc (*bp, termscript);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1170 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1171 offset += screen_bp - screen_buf;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1172 mouse_off_maybe ();
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1173 dosmemput (screen_buf, screen_bp - screen_buf,
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1174 (int)ScreenPrimary + offset);
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1175 if (screen_virtual_segment)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1176 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
1177 new_pos_X += (screen_bp - screen_buf) / 2;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1178 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1179 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1180 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1181
27019
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 Mouse Highlight (and friends..)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1184 ************************************************************************/
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1185
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1186 /* If non-nil, dos_rawgetc generates an event to display that string.
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1187 (The display is done in keyboard.c:read_char, by calling
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1188 show_help_echo.) */
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1189 static Lisp_Object help_echo;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1190 static Lisp_Object previous_help_echo; /* a helper temporary variable */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1191
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1192 /* These record the window, the object and the position where the help
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1193 echo string was generated. */
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1194 static Lisp_Object help_echo_window;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1195 static Lisp_Object help_echo_object;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1196 static int help_echo_pos;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1197
43357
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
1198 /* Non-zero means automatically select any window when the mouse
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
1199 cursor moves into it. */
44359
ff9f7aee02c8 Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents: 44337
diff changeset
1200 int mouse_autoselect_window;
ff9f7aee02c8 Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents: 44337
diff changeset
1201
ff9f7aee02c8 Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents: 44337
diff changeset
1202 /* 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
1203 static Lisp_Object last_mouse_window;
bcefd6f01283 (last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43357
diff changeset
1204
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1205 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
1206
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1207 /* 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
1208 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
1209 static void
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1210 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
1211 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1212 /* 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
1213 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
1214 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
1215 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
1216 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
1217 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
1218 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1219
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1220 /* 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
1221 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
1222 static void
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1223 show_mouse_face (struct display_info *dpyinfo, int hl)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1224 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1225 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
1226 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
1227 int i;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1228 struct face *fp;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1229
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1230
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1231 /* 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
1232 doing anything. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1233 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
1234 goto set_cursor_shape;
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 /* 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
1237 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
1238 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
1239 goto set_cursor_shape;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1240
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1241 /* 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
1242 if (hl > 0)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1243 {
43371
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
1244 if (dpyinfo->mouse_face_hidden)
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
1245 goto set_cursor_shape;
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
1246
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1247 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
1248 if (!fp)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1249 goto set_cursor_shape;
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
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1252 /* 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
1253 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
1254 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
1255 i++)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1256 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1257 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
1258 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
1259
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1260 /* 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
1261 if (!row->enabled_p)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1262 continue;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1263
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1264 /* 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
1265 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
1266 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
1267 else
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1268 start_hpos = 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1269
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1270 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
1271 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
1272 else
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1273 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
1274
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1275 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
1276 continue;
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1277 /* 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
1278 mouse-face. */
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1279 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
1280 if (hl > 0)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1281 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1282 int vpos = row->y + WINDOW_DISPLAY_TOP_EDGE_PIXEL_Y (w);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1283 int kstart = start_hpos + WINDOW_DISPLAY_LEFT_EDGE_PIXEL_X (w);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1284 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
1285 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
1286 int start_offset = offset;
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 if (termscript)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1289 fprintf (termscript, "\n<MH+ %d-%d:%d>",
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1290 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
1291
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1292 mouse_off ();
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1293 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
1294 /* 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
1295 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
1296 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
1297 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
1298 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
1299 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
1300 _farsetsel (_dos_ds);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1301 while (nglyphs--)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1302 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1303 _farnspokeb (offset, ScreenAttrib);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1304 offset += 2;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1305 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1306 if (screen_virtual_segment)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1307 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
1308 mouse_on ();
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1309 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1310 else
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1311 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1312 /* 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
1313 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
1314 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
1315 behind our back. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1316 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
1317 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
1318
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1319 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
1320 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
1321
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1322 /* 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
1323 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
1324 the highlight region. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1325 new_pos_X = start_hpos + WINDOW_DISPLAY_LEFT_EDGE_PIXEL_X (w);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1326 new_pos_Y = row->y + WINDOW_DISPLAY_TOP_EDGE_PIXEL_Y (w);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1327
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1328 if (termscript)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1329 fprintf (termscript, "<MH- %d-%d:%d>",
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1330 new_pos_X, new_pos_X + nglyphs - 1, new_pos_Y);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1331 IT_write_glyphs (row->glyphs[TEXT_AREA] + start_hpos, nglyphs);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1332 if (termscript)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1333 fputs ("\n", termscript);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1334 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
1335 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
1336 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1337 }
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 set_cursor_shape:
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1340
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1341 /* 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
1342 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
1343 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1344
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1345 /* 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
1346 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
1347 static void
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1348 clear_mouse_face (struct display_info *dpyinfo)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1349 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1350 if (! NILP (dpyinfo->mouse_face_window))
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1351 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
1352
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1353 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
1354 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
1355 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
1356 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1357
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1358 /* 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
1359 *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
1360 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
1361 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
1362 static int
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1363 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
1364 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1365 int i;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1366 int lastcol;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1367 int maybe_next_line_p = 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1368 int line_start_position;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1369 int yb = window_text_bottom_y (w);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1370 struct glyph_row *row = MATRIX_ROW (w->current_matrix, 0);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1371 struct glyph_row *best_row = row;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1372
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1373 while (row->y < yb)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1374 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1375 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
1376 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
1377 else
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1378 line_start_position = 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1379
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1380 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
1381 break;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1382 /* 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
1383 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
1384 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
1385 && 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
1386 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1387 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
1388 break;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1389 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1390 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
1391 best_row = row;
34483
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1392
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1393 /* 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
1394 never-never land... */
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1395 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
1396 break;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1397
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1398 ++row;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1399 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1400
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1401 /* 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
1402 lastcol = 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1403 row = best_row;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1404 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
1405 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1406 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
1407 int charpos;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1408
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1409 charpos = glyph->charpos;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1410 if (charpos == pos)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1411 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1412 *hpos = i;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1413 *vpos = row->y;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1414 return 1;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1415 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1416 else if (charpos > pos)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1417 break;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1418 else if (charpos > 0)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1419 lastcol = i;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1420 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1421
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1422 /* 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
1423 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
1424 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
1425 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
1426 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1427 ++row;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1428 lastcol = 0;
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
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1431 *vpos = row->y;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1432 *hpos = lastcol + 1;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1433 return 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1434 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1435
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1436 /* 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
1437 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
1438 mode line. X is relative to the start of the text display area of
41122
2483cab4d6d8 Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40656
diff changeset
1439 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
1440 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
1441 static void
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1442 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
1443 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1444 struct frame *f = XFRAME (w->frame);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1445 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1446 struct glyph_row *row;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1447
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1448 if (mode_line_p)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1449 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
1450 else
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1451 row = MATRIX_HEADER_LINE_ROW (w->current_matrix);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1452
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1453 if (row->enabled_p)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1454 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1455 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
1456 struct glyph *glyph, *end;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1457 Lisp_Object help, map;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1458
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1459 /* Find the glyph under X. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1460 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
1461 + x - FRAME_LEFT_SCROLL_BAR_WIDTH (f) * CANON_X_UNIT (f);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1462 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
1463 if (glyph < end
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1464 && STRINGP (glyph->object)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1465 && XSTRING (glyph->object)->intervals
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1466 && glyph->charpos >= 0
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1467 && glyph->charpos < XSTRING (glyph->object)->size)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1468 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1469 /* 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
1470 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
1471 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
1472 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
1473 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
1474 if (!NILP (help))
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1475 {
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1476 help_echo = help;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1477 XSETWINDOW (help_echo_window, w);
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1478 help_echo_object = glyph->object;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1479 help_echo_pos = glyph->charpos;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1480 }
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1481 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1482 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1483 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1484
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1485 /* 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
1486 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
1487 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
1488 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
1489 static void
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1490 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
1491 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1492 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
34483
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1493 int portion = -1;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1494 Lisp_Object window;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1495 struct window *w;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1496
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1497 /* 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
1498 if (mouse_preempted)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1499 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1500
43371
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
1501 if (NILP (Vmouse_highlight)
28008
5b87cdbef5a8 (IT_note_mouse_highlight): Return immediately if frame's
Eli Zaretskii <eliz@gnu.org>
parents: 27775
diff changeset
1502 || !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
1503 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1504
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1505 dpyinfo->mouse_face_mouse_x = x;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1506 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
1507 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
1508
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1509 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
1510 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1511
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1512 if (gc_in_progress)
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 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
1515 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1516 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1517
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1518 /* Which window is that in? */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1519 window = window_from_coordinates (f, x, y, &portion, 0);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1520
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1521 /* 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
1522 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
1523 clear_mouse_face (dpyinfo);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1524
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1525 /* 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
1526 if (!WINDOWP (window))
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1527 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1528
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1529 /* 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
1530 w = XWINDOW (window);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1531 x -= WINDOW_DISPLAY_LEFT_EDGE_PIXEL_X (w);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1532 y -= WINDOW_DISPLAY_TOP_EDGE_PIXEL_Y (w);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1533
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1534 if (portion == 1 || portion == 3)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1535 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1536 /* Mouse is on the mode or top line. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1537 IT_note_mode_line_highlight (w, x, portion == 1);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1538 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1539 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1540 else
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1541 IT_set_mouse_pointer (0);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1542
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1543 /* 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
1544 And verify the buffer's text has not changed. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1545 if (/* Within text portion of the window. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1546 portion == 0
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1547 && 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
1548 && 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
1549 && (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
1550 == 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
1551 {
34483
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1552 int pos, i;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1553 struct glyph_row *row;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1554 struct glyph *glyph;
34483
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1555 int nrows = w->current_matrix->nrows;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1556
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1557 /* 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
1558 glyph = NULL;
34483
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1559 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
1560 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1561 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
1562 /* 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
1563 not enabled. */
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1564 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
1565 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
1566 break;
eccf7d43bead (fast_find_position): Don't overstep the last window row.
Eli Zaretskii <eliz@gnu.org>
parents: 32730
diff changeset
1567 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
1568 && row->displays_text_p
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1569 && 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
1570 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1571 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
1572 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
1573 glyph = NULL;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1574 else
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1575 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1576 glyph += x;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1577 if (!BUFFERP (glyph->object))
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1578 glyph = NULL;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1579 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1580 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1581 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1582
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1583 /* 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
1584 if (glyph == NULL)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1585 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1586 clear_mouse_face (dpyinfo);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1587 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1588 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1589
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1590 if (!BUFFERP (glyph->object))
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1591 abort ();
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1592 pos = glyph->charpos;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1593
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1594 /* 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
1595 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1596 extern Lisp_Object Qmouse_face;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1597 Lisp_Object mouse_face, overlay, position;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1598 Lisp_Object *overlay_vec;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1599 int len, noverlays;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1600 struct buffer *obuf;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1601 int obegv, ozv;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1602
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1603 /* 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
1604 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
1605 return;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1606
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1607 /* 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
1608 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
1609 obuf = current_buffer;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1610 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
1611 obegv = BEGV;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1612 ozv = ZV;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1613 BEGV = BEG;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1614 ZV = Z;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1615
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1616 /* 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
1617 XSETINT (position, pos);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1618
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1619 /* Put all the overlays we want in a vector in overlay_vec.
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1620 Store the length in len. If there are more than 10, make
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1621 enough space for all, and try again. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1622 len = 10;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1623 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
30725
a5e7ece45cf0 (IT_note_mouse_highlight): Update the calls to overlays_at.
Eli Zaretskii <eliz@gnu.org>
parents: 30711
diff changeset
1624 noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL, 0);
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1625 if (noverlays > len)
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1626 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1627 len = noverlays;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1628 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
30725
a5e7ece45cf0 (IT_note_mouse_highlight): Update the calls to overlays_at.
Eli Zaretskii <eliz@gnu.org>
parents: 30711
diff changeset
1629 noverlays = overlays_at (pos,
a5e7ece45cf0 (IT_note_mouse_highlight): Update the calls to overlays_at.
Eli Zaretskii <eliz@gnu.org>
parents: 30711
diff changeset
1630 0, &overlay_vec, &len, NULL, NULL, 0);
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1631 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1632
30381
ace34a073127 (IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents: 30341
diff changeset
1633 /* 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
1634 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
1635
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1636 /* Check mouse-face highlighting. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1637 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
1638 && 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
1639 && 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
1640 && (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
1641 || 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
1642 && (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
1643 || 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
1644 || 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
1645 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1646 /* 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
1647 clear_mouse_face (dpyinfo);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1648
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1649 /* 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
1650 overlay = Qnil;
30381
ace34a073127 (IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents: 30341
diff changeset
1651 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
1652 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1653 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
1654 if (!NILP (mouse_face))
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1655 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1656 overlay = overlay_vec[i];
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1657 break;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1658 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1659 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1660
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1661 /* 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
1662 if (NILP (overlay))
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1663 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
1664 w->buffer);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1665
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1666 /* Handle the overlay case. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1667 if (! NILP (overlay))
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1668 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1669 /* 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
1670 should be active. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1671 Lisp_Object before, after;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1672 int ignore;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1673
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1674 before = Foverlay_start (overlay);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1675 after = Foverlay_end (overlay);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1676 /* 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
1677 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
1678 &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
1679 &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
1680 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
1681 = !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
1682 &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
1683 &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
1684 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
1685 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
1686 = face_at_buffer_position (w, pos, 0, 0,
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1687 &ignore, pos + 1, 1);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1688
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1689 /* Display it as active. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1690 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
1691 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1692 /* 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
1693 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
1694 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1695 /* 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
1696 should be active. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1697 Lisp_Object before, after, beginning, end;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1698 int ignore;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1699
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1700 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
1701 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
1702 - 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
1703 before
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1704 = 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
1705 Qmouse_face,
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1706 w->buffer, beginning);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1707 after
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1708 = 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
1709 w->buffer, end);
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1710 /* 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
1711 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
1712 &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
1713 &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
1714 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
1715 = !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
1716 &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
1717 &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
1718 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
1719 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
1720 = face_at_buffer_position (w, pos, 0, 0,
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1721 &ignore, pos + 1, 1);
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 /* Display it as active. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1724 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
1725 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1726 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1727
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1728 /* 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
1729 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1730 Lisp_Object help;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1731 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
1732
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1733 /* Check overlays first. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1734 help = Qnil;
30381
ace34a073127 (IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents: 30341
diff changeset
1735 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
1736 {
ace34a073127 (IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents: 30341
diff changeset
1737 overlay = overlay_vec[i];
ace34a073127 (IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents: 30341
diff changeset
1738 help = Foverlay_get (overlay, Qhelp_echo);
ace34a073127 (IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents: 30341
diff changeset
1739 }
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1740
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1741 if (!NILP (help))
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1742 {
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1743 help_echo = help;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1744 help_echo_window = window;
30381
ace34a073127 (IT_note_mouse_highlight): Process overlays in the
Eli Zaretskii <eliz@gnu.org>
parents: 30341
diff changeset
1745 help_echo_object = overlay;
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1746 help_echo_pos = pos;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1747 }
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1748 /* Try text properties. */
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1749 else if (NILP (help)
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1750 && ((STRINGP (glyph->object)
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1751 && glyph->charpos >= 0
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1752 && glyph->charpos < XSTRING (glyph->object)->size)
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1753 || (BUFFERP (glyph->object)
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1754 && glyph->charpos >= BEGV
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1755 && glyph->charpos < ZV)))
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1756 {
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1757 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
1758 Qhelp_echo, glyph->object);
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1759 if (!NILP (help))
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1760 {
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1761 help_echo = help;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1762 help_echo_window = window;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1763 help_echo_object = glyph->object;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1764 help_echo_pos = glyph->charpos;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1765 }
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
1766 }
27019
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 BEGV = obegv;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1770 ZV = ozv;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1771 current_buffer = obuf;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1772 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1773 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1774 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1775
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1776 static void
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1777 IT_clear_end_of_line (int first_unused)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1778 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1779 char *spaces, *sp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1780 int i, j;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1781 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
1782 extern int fatal_error_in_progress;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
1783
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1784 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
1785 return;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1786
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1787 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
1788 i = (j = first_unused - new_pos_X) * 2;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1789 if (termscript)
27462
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
1790 fprintf (termscript, "<CLR:EOL[%d..%d)>", new_pos_X, first_unused);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1791 spaces = sp = alloca (i);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1792
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1793 while (--j >= 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1794 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1795 *sp++ = ' ';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1796 *sp++ = ScreenAttrib;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1797 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1798
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1799 mouse_off_maybe ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1800 dosmemput (spaces, i, (int)ScreenPrimary + offset);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1801 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1802 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
1803
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1804 /* 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
1805 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
1806 new_pos_X = first_unused;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1807 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1808
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1809 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1810 IT_clear_screen (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1811 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1812 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1813 fprintf (termscript, "<CLR:SCR>");
41406
9ba7c0fd50b7 (IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents: 41122
diff changeset
1814 /* 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
1815 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
1816 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
1817 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
1818 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
1819 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
1820 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
1821 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
1822 else
9ba7c0fd50b7 (IT_clear_screen): If the frame's faces are not yet
Eli Zaretskii <eliz@gnu.org>
parents: 41122
diff changeset
1823 IT_set_face (0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1824 mouse_off ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1825 ScreenClear ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1826 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
1827 dosv_refresh_virtual_screen (0, screen_size);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1828 new_pos_X = new_pos_Y = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1829 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1830
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1831 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1832 IT_clear_to_end (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1833 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1834 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1835 fprintf (termscript, "<CLR:EOS>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1836
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1837 while (new_pos_Y < screen_size_Y) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1838 new_pos_X = 0;
27462
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
1839 IT_clear_end_of_line (screen_size_X);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1840 new_pos_Y++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1841 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1842 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1843
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1844 static void
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1845 IT_cursor_to (int y, int x)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1846 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1847 if (termscript)
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
1848 fprintf (termscript, "\n<XY=%dx%d>", x, y);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1849 new_pos_X = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
1850 new_pos_Y = y;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1851 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1852
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1853 static int cursor_cleared;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1854
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
1855 static void
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1856 IT_display_cursor (int on)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1857 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1858 if (on && cursor_cleared)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1859 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1860 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
1861 cursor_cleared = 0;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1862 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1863 else if (!on && !cursor_cleared)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1864 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1865 ScreenSetCursor (-1, -1);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1866 cursor_cleared = 1;
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1867 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1868 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1869
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1870 /* 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
1871 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
1872 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
1873 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
1874 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
1875 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
1876 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
1877 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
1878 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
1879 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
1880
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1881 `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
1882 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
1883 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
1884 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
1885
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1886 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
1887 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
1888
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1889 static void
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1890 IT_cmgoto (FRAME_PTR f)
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1891 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1892 /* 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
1893 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
1894 int update_cursor_pos = 1; /* MODIFF == unchanged_modified; */
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1895
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1896 /* 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
1897 removed. */
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1898 #if 0
23156
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1899 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
1900
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1901 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
1902
23156
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1903 /* 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
1904 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
1905 C-g in the minibuffer. */
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1906 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
1907 previous_pos_X = -1;
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1908 /* 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
1909 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
1910 if (!update_cursor_pos
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1911 && XFASTINT (XWINDOW (FRAME_MINIBUF_WINDOW (f))->top) <= new_pos_Y)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1912 {
23156
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1913 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
1914
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1915 if (echo_area_glyphs)
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1916 {
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1917 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
1918 /* 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
1919 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
1920 of previous cursor position. */
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1921 if (previous_pos_X == -1)
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1922 ScreenGetCursor (&dummy, &previous_pos_X);
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1923 }
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1924 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
1925 {
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1926 /* 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
1927 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
1928 tem_X = previous_pos_X;
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1929 previous_pos_X = -1;
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1930 }
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1931
e080ad3cc739 (IT_cmgoto): When tracking echo area messages with the
Eli Zaretskii <eliz@gnu.org>
parents: 23011
diff changeset
1932 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
1933 {
9b39197e9ecd (IT_cmgoto): In the echo area, only put the cursor at
Eli Zaretskii <eliz@gnu.org>
parents: 22481
diff changeset
1934 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
1935 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
1936 }
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1937 }
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
1938 #endif
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1939
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1940 if (update_cursor_pos
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1941 && (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
1942 {
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1943 ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1944 if (termscript)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1945 fprintf (termscript, "\n<CURSOR:%dx%d>", current_pos_X, current_pos_Y);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1946 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1947
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1948 /* 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
1949 IT_display_cursor (1);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1950
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1951 /* 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
1952 keyboard input. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1953 if (!mouse_visible)
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1954 mouse_on ();
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1955 }
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
1956
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
1957 static void
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1958 IT_update_begin (struct frame *f)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
1959 {
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1960 struct display_info *display_info = FRAME_X_DISPLAY_INFO (f);
30826
f225a6bd06fc (IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents: 30725
diff changeset
1961 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
1962
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1963 BLOCK_INPUT;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1964
30826
f225a6bd06fc (IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents: 30725
diff changeset
1965 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
1966 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1967 /* 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
1968 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
1969
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1970 /* 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
1971 highlighting. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1972 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
1973 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
1974
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1975 /* 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
1976 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
1977 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
1978 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
1979 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
1980 && 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
1981 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1982 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
1983 int i;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
1984
27046
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1985 /* 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
1986 (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
1987 unconditionally. */
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1988 if (NILP (w->buffer))
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1989 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
1990 else
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1991 {
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1992 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
1993 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
1994 && 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
1995 break;
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1996 }
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1997
872992e41f21 (IT_update_begin): Don't dereference members of struct
Eli Zaretskii <eliz@gnu.org>
parents: 27038
diff changeset
1998 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
1999 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
2000 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2001 }
30826
f225a6bd06fc (IT_update_begin): Don't crash if mouse_face_mouse_frame
Eli Zaretskii <eliz@gnu.org>
parents: 30725
diff changeset
2002 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
2003 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2004 /* 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
2005 highlight info. */
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2006 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
2007 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
2008 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
2009 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
2010 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
2011 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2012
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2013 UNBLOCK_INPUT;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2014 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2015
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
2016 static void
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2017 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
2018 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2019 FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2020 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2021
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2022 Lisp_Object Qcursor_type;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2023
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2024 static void
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2025 IT_frame_up_to_date (struct frame *f)
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2026 {
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2027 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
28553
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2028 Lisp_Object new_cursor, frame_desired_cursor;
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2029 struct window *sw;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2030
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2031 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
2032 || (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
2033 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2034 BLOCK_INPUT;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2035 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
2036 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
2037 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
2038 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
2039 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
2040 UNBLOCK_INPUT;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2041 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2042
28553
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2043 /* 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
2044 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
2045 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
2046 frame parameters. For the selected window, we use either its
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2047 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
2048 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
2049 sw = XWINDOW (f->selected_window);
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2050 frame_desired_cursor = Fcdr (Fassq (Qcursor_type, f->param_alist));
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2051 if (cursor_in_echo_area
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2052 && FRAME_HAS_MINIBUF_P (f)
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2053 && EQ (FRAME_MINIBUF_WINDOW (f), echo_area_window)
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2054 && sw == XWINDOW (echo_area_window))
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2055 new_cursor = frame_desired_cursor;
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2056 else
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2057 {
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2058 struct buffer *b = XBUFFER (sw->buffer);
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2059
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2060 if (EQ (b->cursor_type, Qt))
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2061 new_cursor = frame_desired_cursor;
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2062 else if (NILP (b->cursor_type)) /* nil means no cursor */
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2063 new_cursor = Fcons (Qbar, make_number (0));
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2064 else
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2065 new_cursor = b->cursor_type;
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2066 }
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2067
56d5ca61cfd8 (NUM_MOUSE_BUTTONS): Define.
Eli Zaretskii <eliz@gnu.org>
parents: 28227
diff changeset
2068 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
2069
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2070 IT_cmgoto (f); /* position cursor when update is done */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2071 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2072
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2073 /* 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
2074 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
2075 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
2076 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
2077 static void
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2078 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
2079 {
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2080 /* 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
2081 conventional memorty selector. */
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2082 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
2083 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
2084
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2085 if (from == to || len <= 0)
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2086 return;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2087
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2088 _farsetsel (_dos_ds);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2089
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2090 /* 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
2091 glyphs non-destructively. */
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2092 if (from > to)
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2093 {
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2094 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
2095 _farnspokew (to, _farnspeekw (from));
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2096 }
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2097 else
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2098 {
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2099 from += (len - 1) * 2;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2100 to += (len - 1) * 2;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2101 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
2102 _farnspokew (to, _farnspeekw (from));
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2103 }
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2104 if (screen_virtual_segment)
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2105 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
2106 }
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2107
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2108 /* Insert and delete glyphs. */
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2109 static void
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2110 IT_insert_glyphs (start, len)
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2111 register struct glyph *start;
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2112 register int len;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2113 {
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2114 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
2115
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2116 /* 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
2117 end of this line. */
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2118 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
2119
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2120 /* Now write the glyphs to be inserted. */
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2121 IT_write_glyphs (start, len);
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2122 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2123
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2124 static void
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2125 IT_delete_glyphs (n)
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2126 register int n;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2127 {
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2128 abort ();
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2129 }
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2130
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2131 /* 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
2132 void
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2133 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
2134 struct frame *f;
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2135 Lisp_Object value, oldval;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2136 {
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2137 set_menu_bar_lines (f, value, oldval);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2138 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2139
32271
4ff70fe0d99b (top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents: 30840
diff changeset
2140 /* This was copied from xfaces.c */
4ff70fe0d99b (top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents: 30840
diff changeset
2141
4ff70fe0d99b (top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents: 30840
diff changeset
2142 extern Lisp_Object Qbackground_color;
4ff70fe0d99b (top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents: 30840
diff changeset
2143 extern Lisp_Object Qforeground_color;
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2144 Lisp_Object Qreverse;
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2145 extern Lisp_Object Qtitle;
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2146
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
2147 /* 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
2148 resumed, and whenever the screen is redrawn! */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2149
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
2150 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2151 IT_set_terminal_modes (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2152 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2153 if (termscript)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2154 fprintf (termscript, "\n<SET_TERM>");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2155
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2156 screen_size_X = ScreenCols ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2157 screen_size_Y = ScreenRows ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2158 screen_size = screen_size_X * screen_size_Y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2159
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2160 new_pos_X = new_pos_Y = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2161 current_pos_X = current_pos_Y = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2162
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2163 if (term_setup_done)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2164 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2165 term_setup_done = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2166
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2167 startup_screen_size_X = screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2168 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
2169 startup_screen_attrib = ScreenAttrib;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2170
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2171 #if __DJGPP__ > 1
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2172 /* 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
2173 the screen) installed? */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2174 {
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2175 unsigned short es_value;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2176 __dpmi_regs regs;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2177
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2178 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
2179 if (ScreenPrimary == 0xb0000UL || ScreenPrimary == 0xb8000UL)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2180 regs.x.es = (ScreenPrimary >> 4) & 0xffff;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2181 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
2182 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
2183 else
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2184 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
2185 regs.x.di = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2186 es_value = regs.x.es;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2187 __dpmi_int (0x10, &regs);
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2188
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2189 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
2190 {
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2191 /* 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
2192 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
2193 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
2194 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
2195 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
2196 screen_old_address = ScreenPrimary;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2197 screen_virtual_segment = regs.x.es;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2198 screen_virtual_offset = regs.x.di;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2199 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
2200 }
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2201 }
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2202 #endif /* __DJGPP__ > 1 */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2203
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2204 ScreenGetCursor (&startup_pos_Y, &startup_pos_X);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2205 ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2206
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2207 if (termscript)
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2208 fprintf (termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n",
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2209 screen_size_X, screen_size_Y);
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2210
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2211 bright_bg ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2212 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2213
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
2214 /* 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
2215 suspended or killed. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2216
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
2217 static void
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2218 IT_reset_terminal_modes (void)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2219 {
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2220 int display_row_start = (int) ScreenPrimary;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2221 int saved_row_len = startup_screen_size_X * 2;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2222 int update_row_len = ScreenCols () * 2;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2223 int current_rows = ScreenRows ();
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2224 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
2225 unsigned char *saved_row = startup_screen_buffer;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2226 int cursor_pos_X = ScreenCols () - 1;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2227 int cursor_pos_Y = ScreenRows () - 1;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2228
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2229 if (termscript)
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2230 fprintf (termscript, "\n<RESET_TERM>");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2231
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2232 if (!term_setup_done)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2233 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2234
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2235 mouse_off ();
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
2236
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
2237 /* 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
2238 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
2239 maybe_enable_blinking ();
23815
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2240
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2241 /* We have a situation here.
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2242 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
2243 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
2244 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
2245 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
2246 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
2247 `startup_screen_buffer'.
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2248 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
2249 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
2250 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
2251 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
2252
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2253 ScreenAttrib = startup_screen_attrib;
23815
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2254
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2255 /* 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
2256 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
2257 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
2258 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
2259 {
23815
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2260 ScreenClear ();
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2261 if (screen_virtual_segment)
23815
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2262 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
2263
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2264 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
2265 update_row_len = saved_row_len;
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2266 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
2267 current_rows = startup_screen_size_Y;
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2268
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2269 if (termscript)
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2270 fprintf (termscript, "<SCREEN RESTORED (dimensions=%dx%d)>\n",
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2271 update_row_len / 2, current_rows);
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2272
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2273 while (current_rows--)
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2274 {
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2275 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
2276 if (screen_virtual_segment)
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2277 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
2278 update_row_len / 2);
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2279 saved_row += saved_row_len;
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2280 display_row_start += to_next_row;
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
2281 }
13717
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2282 }
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2283 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
2284 cursor_pos_X = startup_pos_X;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2285 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
2286 cursor_pos_Y = startup_pos_Y;
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2287
d7bb4093a950 (IT_set_terminal_modes): Save screen color attribute
Karl Heuer <kwzh@gnu.org>
parents: 13714
diff changeset
2288 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
2289 xfree (startup_screen_buffer);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2290
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2291 term_setup_done = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2292 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2293
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
2294 static void
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
2295 IT_set_terminal_window (int foo)
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2296 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2297 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2298
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2299 /* 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
2300 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
2301 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
2302 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
2303 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
2304 (frame)
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2305 Lisp_Object frame;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2306 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2307 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2308
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40082
diff changeset
2309 CHECK_FRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2310 f= XFRAME (frame);
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2311
36483
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2312 /* 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
2313 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
2314 specified in default-frame-alist, it was already applied, and
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2315 frame colors are reversed. We need to account for that. */
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2316 if (EQ (Fcdr (Fassq (Qreverse, f->param_alist)), Qt))
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2317 {
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2318 initial_screen_colors[0] = FRAME_BACKGROUND_PIXEL (f);
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2319 initial_screen_colors[1] = FRAME_FOREGROUND_PIXEL (f);
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2320 }
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2321 else
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2322 {
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2323 initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f);
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2324 initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f);
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2325 }
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2326 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2327
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2328 void
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2329 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
2330 struct frame *f;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2331 Lisp_Object alist;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2332 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2333 Lisp_Object tail;
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2334 int length = XINT (Flength (alist));
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2335 int i, j;
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2336 Lisp_Object *parms
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2337 = (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
2338 Lisp_Object *values
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2339 = (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
2340 /* 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
2341 int reverse = EQ (Fcdr (Fassq (Qreverse, f->param_alist)), Qt);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2342 int was_reverse = reverse;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2343 int redraw = 0, fg_set = 0, bg_set = 0;
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2344 int need_to_reverse;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2345 unsigned long orig_fg;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2346 unsigned long orig_bg;
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2347 Lisp_Object frame_bg, frame_fg;
32337
a9dbff7d4142 Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 32335
diff changeset
2348 extern Lisp_Object Qdefault, QCforeground, QCbackground;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2349
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2350 /* 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
2351 used for the initial frame. */
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2352 if (alist == Vdefault_frame_alist
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2353 && 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
2354 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2355 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
2356 FRAME_BACKGROUND_PIXEL (f) = initial_screen_colors[1];
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2357 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2358 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
2359 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
2360 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
2361 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
2362 /* 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
2363 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
2364 Fmake_terminal_frame. */
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2365 if (NILP (frame_fg))
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2366 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
2367 if (NILP (frame_bg))
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2368 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
2369
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2370 /* 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
2371 i = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2372 for (tail = alist; CONSP (tail); tail = Fcdr (tail))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2373 {
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2374 Lisp_Object elt;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2375
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2376 elt = Fcar (tail);
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2377 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
2378 CHECK_SYMBOL (parms[i]);
19293
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2379 values[i] = Fcdr (elt);
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2380 i++;
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2381 }
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2382
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2383 j = i;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2384
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2385 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
2386 {
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2387 Lisp_Object prop, val;
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2388
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2389 prop = parms[i];
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2390 val = values[i];
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2391
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2392 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
2393 reverse = EQ (val, Qt);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2394 }
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2395
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2396 need_to_reverse = reverse && !was_reverse;
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2397 if (termscript && need_to_reverse)
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2398 fprintf (termscript, "<INVERSE-VIDEO>\n");
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2399
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2400 /* 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
2401 for (i--; i >= 0; i--)
af78882332ed (IT_set_frame_parameters): Actually store the frame
Richard M. Stallman <rms@gnu.org>
parents: 19287
diff changeset
2402 {
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2403 Lisp_Object prop, val;
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2404 Lisp_Object frame;
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2405
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2406 prop = parms[i];
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2407 val = values[i];
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2408
19864
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
2409 if (EQ (prop, Qforeground_color))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2410 {
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2411 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
2412 ? LFACE_BACKGROUND_INDEX
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2413 : 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
2414 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
2415 && 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
2416 && new_color != FACE_TTY_DEFAULT_BG_COLOR)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2417 {
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2418 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
2419 /* 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
2420 frame is changed as well. */
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2421 XSETFRAME (frame, f);
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2422 if (need_to_reverse)
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2423 {
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2424 Finternal_set_lisp_face_attribute (Qdefault, QCbackground,
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2425 val, frame);
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2426 prop = Qbackground_color;
36483
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2427 bg_set = 1;
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2428 }
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2429 else
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2430 {
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2431 Finternal_set_lisp_face_attribute (Qdefault, QCforeground,
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2432 val, frame);
36483
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2433 fg_set = 1;
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2434 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2435 redraw = 1;
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2436 if (termscript)
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
2437 fprintf (termscript, "<FGCOLOR %lu>\n", new_color);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2438 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2439 }
19864
44dcf37ec345 (syms_of_msdos): Intern background-color and
Richard M. Stallman <rms@gnu.org>
parents: 19603
diff changeset
2440 else if (EQ (prop, Qbackground_color))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2441 {
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2442 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
2443 ? LFACE_FOREGROUND_INDEX
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2444 : 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
2445 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
2446 && 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
2447 && new_color != FACE_TTY_DEFAULT_BG_COLOR)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2448 {
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2449 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
2450 /* 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
2451 frame is changed as well. */
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2452 XSETFRAME (frame, f);
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2453 if (need_to_reverse)
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2454 {
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2455 Finternal_set_lisp_face_attribute (Qdefault, QCforeground,
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2456 val, frame);
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2457 prop = Qforeground_color;
36483
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2458 fg_set = 1;
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2459 }
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2460 else
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2461 {
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2462 Finternal_set_lisp_face_attribute (Qdefault, QCbackground,
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2463 val, frame);
36483
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2464 bg_set = 1;
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2465 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2466 redraw = 1;
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2467 if (termscript)
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
2468 fprintf (termscript, "<BGCOLOR %lu>\n", new_color);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2469 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2470 }
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2471 else if (EQ (prop, Qtitle))
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2472 {
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2473 x_set_title (f, val);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2474 if (termscript)
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2475 fprintf (termscript, "<TITLE: %s>\n", XSTRING (val)->data);
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2476 }
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2477 else if (EQ (prop, Qcursor_type))
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2478 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2479 IT_set_cursor_type (f, val);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2480 if (termscript)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2481 fprintf (termscript, "<CTYPE: %s>\n",
44695
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
2482 EQ (val, Qbar) || EQ (val, Qhbar)
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
2483 || CONSP (val) && (EQ (XCAR (val), Qbar)
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
2484 || EQ (XCAR (val), Qhbar))
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2485 ? "bar" : "box");
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
2486 }
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2487 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
2488 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2489
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2490 /* 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
2491 the current frame colors. */
32546
9672c4db6bed (IT_set_face): Compare highlighted face with the default
Eli Zaretskii <eliz@gnu.org>
parents: 32337
diff changeset
2492 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
2493 {
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2494 Lisp_Object frame;
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2495
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2496 if (!fg_set)
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2497 {
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2498 XSETFRAME (frame, f);
36483
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2499 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
2500 tty_color_name (f, orig_bg),
32337
a9dbff7d4142 Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 32335
diff changeset
2501 frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2502 redraw = 1;
20036
65c394bb8b17 (mouse_get_pos): Remove reduntant call to `int86'.
Eli Zaretskii <eliz@gnu.org>
parents: 19871
diff changeset
2503 }
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2504 if (!bg_set)
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2505 {
32335
442188fbf8b5 (IT_set_frame_parameters): Don't initialize Lisp_Object
Eli Zaretskii <eliz@gnu.org>
parents: 32271
diff changeset
2506 XSETFRAME (frame, f);
36483
c3734c1b1362 (Fmsdos_remember_default_colors): If default-frame-alist
Eli Zaretskii <eliz@gnu.org>
parents: 34676
diff changeset
2507 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
2508 tty_color_name (f, orig_fg),
32337
a9dbff7d4142 Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 32335
diff changeset
2509 frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2510 redraw = 1;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2511 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2512 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2513
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2514 if (redraw)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2515 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2516 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
2517 if (f == SELECTED_FRAME())
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2518 redraw_frame (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2519 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2520 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2521
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
2522 extern void init_frame_faces (FRAME_PTR);
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
2523
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2524 #endif /* !HAVE_X_WINDOWS */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2525
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2526
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
2527 /* 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
2528
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2529 void
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2530 internal_terminal_init ()
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2531 {
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2532 char *term = getenv ("TERM");
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
2533 char *colors;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2534 struct frame *sf = SELECTED_FRAME();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2535
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2536 #ifdef HAVE_X_WINDOWS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2537 if (!inhibit_window_system)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2538 return;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2539 #endif
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2540
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2541 internal_terminal
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2542 = (!noninteractive) && term && !strcmp (term, "internal");
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2543
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2544 if (getenv ("EMACSTEST"))
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2545 termscript = fopen (getenv ("EMACSTEST"), "wt");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2546
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2547 #ifndef HAVE_X_WINDOWS
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2548 if (!internal_terminal || inhibit_window_system)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2549 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2550 sf->output_method = output_termcap;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2551 return;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2552 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2553
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2554 Vwindow_system = intern ("pc");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2555 Vwindow_system_version = make_number (1);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2556 sf->output_method = output_msdos_raw;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2557
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2558 /* If Emacs was dumped on DOS/V machine, forget the stale VRAM address. */
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2559 screen_old_address = 0;
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2560
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2561 /* Forget the stale screen colors as well. */
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2562 initial_screen_colors[0] = initial_screen_colors[1] = -1;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2563
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2564 bzero (&the_only_x_display, sizeof the_only_x_display);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2565 the_only_x_display.background_pixel = 7; /* White */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2566 the_only_x_display.foreground_pixel = 0; /* Black */
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2567 bright_bg ();
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2568 colors = getenv ("EMACSCOLORS");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2569 if (colors && strlen (colors) >= 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2570 {
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2571 /* The colors use 4 bits each (we enable bright background). */
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2572 if (isdigit (colors[0]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2573 colors[0] -= '0';
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2574 else if (isxdigit (colors[0]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2575 colors[0] -= (isupper (colors[0]) ? 'A' : 'a') - 10;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2576 if (colors[0] >= 0 && colors[0] < 16)
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2577 the_only_x_display.foreground_pixel = colors[0];
15341
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2578 if (isdigit (colors[1]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2579 colors[1] -= '0';
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2580 else if (isxdigit (colors[1]))
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2581 colors[1] -= (isupper (colors[1]) ? 'A' : 'a') - 10;
8a0f5a5937e5 (bright_bg): New function, enables bright background colors.
Richard M. Stallman <rms@gnu.org>
parents: 15222
diff changeset
2582 if (colors[1] >= 0 && colors[1] < 16)
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
2583 the_only_x_display.background_pixel = colors[1];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2584 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2585 the_only_x_display.line_height = 1;
13625
397f07418271 (internal_terminal_init): Initialize the_only_x_display.font.
Richard M. Stallman <rms@gnu.org>
parents: 13624
diff changeset
2586 the_only_x_display.font = (XFontStruct *)1; /* must *not* be zero */
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2587 the_only_x_display.display_info.mouse_face_mouse_frame = NULL;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2588 the_only_x_display.display_info.mouse_face_deferred_gc = 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2589 the_only_x_display.display_info.mouse_face_beg_row =
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2590 the_only_x_display.display_info.mouse_face_beg_col = -1;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2591 the_only_x_display.display_info.mouse_face_end_row =
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2592 the_only_x_display.display_info.mouse_face_end_col = -1;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2593 the_only_x_display.display_info.mouse_face_face_id = DEFAULT_FACE_ID;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2594 the_only_x_display.display_info.mouse_face_window = Qnil;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2595 the_only_x_display.display_info.mouse_face_mouse_x =
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2596 the_only_x_display.display_info.mouse_face_mouse_y = 0;
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2597 the_only_x_display.display_info.mouse_face_defer = 0;
43371
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
2598 the_only_x_display.display_info.mouse_face_hidden = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2599
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2600 init_frame_faces (sf);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2601
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2602 ring_bell_hook = IT_ring_bell;
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2603 insert_glyphs_hook = IT_insert_glyphs;
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
2604 delete_glyphs_hook = IT_delete_glyphs;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2605 write_glyphs_hook = IT_write_glyphs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2606 cursor_to_hook = raw_cursor_to_hook = IT_cursor_to;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2607 clear_to_end_hook = IT_clear_to_end;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2608 clear_end_of_line_hook = IT_clear_end_of_line;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2609 clear_frame_hook = IT_clear_screen;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2610 update_begin_hook = IT_update_begin;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2611 update_end_hook = IT_update_end;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
2612 frame_up_to_date_hook = IT_frame_up_to_date;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2613
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2614 /* These hooks are called by term.c without being checked. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2615 set_terminal_modes_hook = IT_set_terminal_modes;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2616 reset_terminal_modes_hook = IT_reset_terminal_modes;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2617 set_terminal_window_hook = IT_set_terminal_window;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
2618 char_ins_del_ok = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
2619 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2620 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2621
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2622 dos_get_saved_screen (screen, rows, cols)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2623 char **screen;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2624 int *rows;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2625 int *cols;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2626 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2627 #ifndef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2628 *screen = startup_screen_buffer;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2629 *cols = startup_screen_size_X;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2630 *rows = startup_screen_size_Y;
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
2631 return *screen != (char *)0;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2632 #else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2633 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2634 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2635 }
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2636
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2637 #ifndef HAVE_X_WINDOWS
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2638
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2639 /* 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
2640 void
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2641 check_x (void)
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2642 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
2643 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
2644 error ("Not running under a window system");
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2645 }
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2646
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2647 #endif
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
2648
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2649
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2650 /* ----------------------- Keyboard control ----------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2651 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2652 * Keymaps reflect the following keyboard layout:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2653 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2654 * 0 1 2 3 4 5 6 7 8 9 10 11 12 BS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2655 * TAB 15 16 17 18 19 20 21 22 23 24 25 26 (41)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2656 * CLOK 30 31 32 33 34 35 36 37 38 39 40 (41) RET
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2657 * SH () 45 46 47 48 49 50 51 52 53 54 SHIFT
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2658 * SPACE
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2659 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2660
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2661 #define Ignore 0x0000
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2662 #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
2663 #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
2664 #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
2665 #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
2666 #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
2667 #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
2668 #define Grey 0x6000 /* Grey keypad key */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2669
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2670 #define Alt 0x0100 /* alt scan-code */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2671 #define Ctrl 0x0200 /* ctrl scan-code */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2672 #define Shift 0x0400 /* shift scan-code */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2673
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2674 static int extended_kbd; /* 101 (102) keyboard present. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2675
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2676 struct kbd_translate {
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2677 unsigned char sc;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2678 unsigned char ch;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2679 unsigned short code;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2680 };
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2681
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2682 struct dos_keyboard_map
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2683 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2684 char *unshifted;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2685 char *shifted;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2686 char *alt_gr;
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2687 struct kbd_translate *translate_table;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2688 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2689
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
2690
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2691 static struct dos_keyboard_map us_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2692 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2693 /* 01234567890123456789012345678901234567890 12345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2694 "`1234567890-= qwertyuiop[] asdfghjkl;'\\ zxcvbnm,./ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2695 /* 0123456789012345678901234567890123456789 012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2696 "~!@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"| ZXCVBNM<>? ",
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2697 0, /* no Alt-Gr key */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2698 0 /* no translate table */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2699 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2700
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2701 static struct dos_keyboard_map fr_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2702 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2703 /* 012 3456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2704 "ý&‚\",(-Š_€…)= azertyuiop^$ qsdfghjklm—* wxcvbnm;:! ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2705 /* 0123456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2706 " 1234567890ø+ AZERTYUIOPùœ QSDFGHJKLM%æ WXCVBN?./õ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2707 /* 01234567 89012345678901234567890123456789012345678901234 */
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2708 " ~#{[|`\\^@]} Ï ",
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2709 0 /* no translate table */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2710 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2711
21583
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2712 /*
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2713 * Italian keyboard support, country code 39.
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2714 * '<' 56:3c*0000
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2715 * '>' 56:3e*0000
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2716 * 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
2717 * 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
2718 */
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2719
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2720 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
2721 { 0x56, 0x3c, Normal | 13 },
5082c3adfa2f (dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents: 24560
diff changeset
2722 { 0x56, 0x3e, Normal | 27 },
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2723 { 0, 0, 0 }
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2724 };
21583
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2725 static struct dos_keyboard_map it_keyboard = {
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2726 /* 0 1 2 3 4 5 */
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2727 /* 0 123456789012345678901234567890123456789012345678901234 */
24566
5082c3adfa2f (dos_rawgetc): Don't zero out c if private translation
Eli Zaretskii <eliz@gnu.org>
parents: 24560
diff changeset
2728 "\\1234567890'< qwertyuiopŠ+> asdfghjkl•…— zxcvbnm,.- ",
21583
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2729 /* 01 23456789012345678901234567890123456789012345678901234 */
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2730 "|!\"œ$%&/()=?^> QWERTYUIOP‚* ASDFGHJKL‡øõ ZXCVBNM;:_ ",
21583
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2731 /* 0123456789012345678901234567890123456789012345678901234 */
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2732 " {}~` [] @# ",
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2733 it_kbd_translate_table
21583
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2734 };
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2735
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2736 static struct dos_keyboard_map dk_keyboard = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2737 /* 0 1 2 3 4 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2738 /* 0123456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2739 "«1234567890+| qwertyuiop†~ asdfghjkl‘›' zxcvbnm,.- ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2740 /* 01 23456789012345678901234567890123456789012345678901234 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2741 "õ!\"#$%&/()=?` QWERTYUIOP^ ASDFGHJKL’* ZXCVBNM;:_ ",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2742 /* 0123456789012345678901234567890123456789012345678901234 */
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2743 " @œ$ {[]} | ",
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2744 0 /* no translate table */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2745 };
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2746
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2747 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
2748 { 0x73, 0x5c, Normal | 0 },
bb608cd1af6e (jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 24559
diff changeset
2749 { 0x73, 0x5f, Normal | 0 },
24593
ffe7dfc452d7 (jp_kbd_translate_table): Fix the other \ key.
Eli Zaretskii <eliz@gnu.org>
parents: 24566
diff changeset
2750 { 0x73, 0x1c, Map | 0 },
24560
bb608cd1af6e (jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 24559
diff changeset
2751 { 0x7d, 0x5c, Normal | 13 },
bb608cd1af6e (jp_kbd_translate_table): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 24559
diff changeset
2752 { 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
2753 { 0x7d, 0x1c, Map | 13 },
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2754 { 0, 0, 0 }
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2755 };
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2756 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
2757 /* 0 1 2 3 4 5 */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2758 /* 0123456789012 345678901234567890123456789012345678901234 */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2759 "\\1234567890-^\\ qwertyuiop@[ asdfghjkl;:] zxcvbnm,./ ",
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2760 /* 01 23456789012345678901234567890123456789012345678901234 */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2761 "_!\"#$%&'()~=~| QWERTYUIOP`{ ASDFGHJKL+*} ZXCVBNM<>? ",
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2762 0, /* no Alt-Gr key */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2763 jp_kbd_translate_table
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2764 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2765
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2766 static struct keyboard_layout_list
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2767 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2768 int country_code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2769 struct dos_keyboard_map *keyboard_map;
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2770 } keyboard_layout_list[] =
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2771 {
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2772 1, &us_keyboard,
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2773 33, &fr_keyboard,
21583
ba75380b39f7 (it_keyboard): New variable, supports Italian keyboard.
Eli Zaretskii <eliz@gnu.org>
parents: 21489
diff changeset
2774 39, &it_keyboard,
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2775 45, &dk_keyboard,
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2776 81, &jp_keyboard
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2777 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2778
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2779 static struct dos_keyboard_map *keyboard;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2780 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
2781 static int international_keyboard;
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
2782
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
2783 int
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2784 dos_set_keyboard (code, always)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2785 int code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2786 int always;
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
2787 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2788 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
2789 _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
2790
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
2791 /* 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
2792 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
2793 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
2794 regs.x.ax = 0xad80;
23011
fe3128dafc96 (dos_set_keyboard): Set up stack and flags before
Eli Zaretskii <eliz@gnu.org>
parents: 22992
diff changeset
2795 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
2796 _go32_dpmi_simulate_int (0x2f, &regs);
16763
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
2797 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
2798 international_keyboard = 1;
13624
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
2799
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
2800 /* 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
2801 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
2802 keyboard_map_all = always;
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
2803 dos_keyboard_layout = 1;
47484dd9a970 (dos_set_keyboard): If CODE is not recognized,
Richard M. Stallman <rms@gnu.org>
parents: 13520
diff changeset
2804
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2805 for (i = 0; i < (sizeof (keyboard_layout_list)/sizeof (struct keyboard_layout_list)); i++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2806 if (code == keyboard_layout_list[i].country_code)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2807 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2808 keyboard = keyboard_layout_list[i].keyboard_map;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2809 keyboard_map_all = always;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2810 dos_keyboard_layout = code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2811 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2812 }
7523
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
2813 return 0;
8994727ff976 (gettimeofday): New function substituting the library
Richard M. Stallman <rms@gnu.org>
parents: 7507
diff changeset
2814 }
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
2815
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2816 static struct
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2817 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2818 unsigned char char_code; /* normal code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2819 unsigned char meta_code; /* M- code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2820 unsigned char keypad_code; /* keypad code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2821 unsigned char editkey_code; /* edit key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2822 } keypad_translate_map[] = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2823 '0', '0', 0xb0, /* kp-0 */ 0x63, /* insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2824 '1', '1', 0xb1, /* kp-1 */ 0x57, /* end */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2825 '2', '2', 0xb2, /* kp-2 */ 0x54, /* down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2826 '3', '3', 0xb3, /* kp-3 */ 0x56, /* next */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2827 '4', '4', 0xb4, /* kp-4 */ 0x51, /* left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2828 '5', '5', 0xb5, /* kp-5 */ 0xb5, /* kp-5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2829 '6', '6', 0xb6, /* kp-6 */ 0x53, /* right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2830 '7', '7', 0xb7, /* kp-7 */ 0x50, /* home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2831 '8', '8', 0xb8, /* kp-8 */ 0x52, /* up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2832 '9', '9', 0xb9, /* kp-9 */ 0x55, /* prior */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2833 '.', '-', 0xae, /* kp-decimal */ 0xff /* delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2834 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2835
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2836 static struct
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2837 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2838 unsigned char char_code; /* normal code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2839 unsigned char keypad_code; /* keypad code */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2840 } grey_key_translate_map[] = {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2841 '/', 0xaf, /* kp-decimal */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2842 '*', 0xaa, /* kp-multiply */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2843 '-', 0xad, /* kp-subtract */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2844 '+', 0xab, /* kp-add */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2845 '\r', 0x8d /* kp-enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2846 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2847
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2848 static unsigned short
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2849 ibmpc_translate_map[] =
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
2850 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2851 /* --------------- 00 to 0f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2852 Normal | 0xff, /* Ctrl Break + Alt-NNN */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2853 Alt | ModFct | 0x1b, /* Escape */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2854 Normal | 1, /* '1' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2855 Normal | 2, /* '2' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2856 Normal | 3, /* '3' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2857 Normal | 4, /* '4' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2858 Normal | 5, /* '5' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2859 Normal | 6, /* '6' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2860 Normal | 7, /* '7' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2861 Normal | 8, /* '8' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2862 Normal | 9, /* '9' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2863 Normal | 10, /* '0' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2864 Normal | 11, /* '-' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2865 Normal | 12, /* '=' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2866 Special | 0x08, /* Backspace */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2867 ModFct | 0x74, /* Tab/Backtab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2868
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2869 /* --------------- 10 to 1f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2870 Map | 15, /* 'q' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2871 Map | 16, /* 'w' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2872 Map | 17, /* 'e' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2873 Map | 18, /* 'r' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2874 Map | 19, /* 't' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2875 Map | 20, /* 'y' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2876 Map | 21, /* 'u' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2877 Map | 22, /* 'i' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2878 Map | 23, /* 'o' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2879 Map | 24, /* 'p' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2880 Map | 25, /* '[' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2881 Map | 26, /* ']' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2882 ModFct | 0x0d, /* Return */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2883 Ignore, /* Ctrl */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2884 Map | 30, /* 'a' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2885 Map | 31, /* 's' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2886
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2887 /* --------------- 20 to 2f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2888 Map | 32, /* 'd' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2889 Map | 33, /* 'f' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2890 Map | 34, /* 'g' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2891 Map | 35, /* 'h' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2892 Map | 36, /* 'j' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2893 Map | 37, /* 'k' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2894 Map | 38, /* 'l' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2895 Map | 39, /* ';' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2896 Map | 40, /* '\'' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2897 Map | 0, /* '`' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2898 Ignore, /* Left shift */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2899 Map | 41, /* '\\' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2900 Map | 45, /* 'z' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2901 Map | 46, /* 'x' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2902 Map | 47, /* 'c' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2903 Map | 48, /* 'v' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2904
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2905 /* --------------- 30 to 3f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2906 Map | 49, /* 'b' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2907 Map | 50, /* 'n' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2908 Map | 51, /* 'm' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2909 Map | 52, /* ',' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2910 Map | 53, /* '.' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2911 Map | 54, /* '/' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2912 Ignore, /* Right shift */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2913 Grey | 1, /* Grey * */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2914 Ignore, /* Alt */
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
2915 Normal | 55, /* ' ' */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2916 Ignore, /* Caps Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2917 FctKey | 0xbe, /* F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2918 FctKey | 0xbf, /* F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2919 FctKey | 0xc0, /* F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2920 FctKey | 0xc1, /* F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2921 FctKey | 0xc2, /* F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2922
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2923 /* --------------- 40 to 4f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2924 FctKey | 0xc3, /* F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2925 FctKey | 0xc4, /* F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2926 FctKey | 0xc5, /* F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2927 FctKey | 0xc6, /* F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2928 FctKey | 0xc7, /* F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2929 Ignore, /* Num Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2930 Ignore, /* Scroll Lock */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2931 KeyPad | 7, /* Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2932 KeyPad | 8, /* Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2933 KeyPad | 9, /* Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2934 Grey | 2, /* Grey - */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2935 KeyPad | 4, /* Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2936 KeyPad | 5, /* Keypad 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2937 KeyPad | 6, /* Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2938 Grey | 3, /* Grey + */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2939 KeyPad | 1, /* End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2940
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2941 /* --------------- 50 to 5f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2942 KeyPad | 2, /* Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2943 KeyPad | 3, /* Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2944 KeyPad | 0, /* Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2945 KeyPad | 10, /* Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2946 Shift | FctKey | 0xbe, /* (Shift) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2947 Shift | FctKey | 0xbf, /* (Shift) F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2948 Shift | FctKey | 0xc0, /* (Shift) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2949 Shift | FctKey | 0xc1, /* (Shift) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2950 Shift | FctKey | 0xc2, /* (Shift) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2951 Shift | FctKey | 0xc3, /* (Shift) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2952 Shift | FctKey | 0xc4, /* (Shift) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2953 Shift | FctKey | 0xc5, /* (Shift) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2954 Shift | FctKey | 0xc6, /* (Shift) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2955 Shift | FctKey | 0xc7, /* (Shift) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2956 Ctrl | FctKey | 0xbe, /* (Ctrl) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2957 Ctrl | FctKey | 0xbf, /* (Ctrl) F2 */
13040
169d50e2ee4c (gettimeofday, init_gettimeofday, daylight, gmtoffset): Undo previous change.
Paul Eggert <eggert@twinsun.com>
parents: 13020
diff changeset
2958
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2959 /* --------------- 60 to 6f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2960 Ctrl | FctKey | 0xc0, /* (Ctrl) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2961 Ctrl | FctKey | 0xc1, /* (Ctrl) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2962 Ctrl | FctKey | 0xc2, /* (Ctrl) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2963 Ctrl | FctKey | 0xc3, /* (Ctrl) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2964 Ctrl | FctKey | 0xc4, /* (Ctrl) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2965 Ctrl | FctKey | 0xc5, /* (Ctrl) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2966 Ctrl | FctKey | 0xc6, /* (Ctrl) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2967 Ctrl | FctKey | 0xc7, /* (Ctrl) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2968 Alt | FctKey | 0xbe, /* (Alt) F1 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2969 Alt | FctKey | 0xbf, /* (Alt) F2 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2970 Alt | FctKey | 0xc0, /* (Alt) F3 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2971 Alt | FctKey | 0xc1, /* (Alt) F4 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2972 Alt | FctKey | 0xc2, /* (Alt) F5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2973 Alt | FctKey | 0xc3, /* (Alt) F6 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2974 Alt | FctKey | 0xc4, /* (Alt) F7 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2975 Alt | FctKey | 0xc5, /* (Alt) F8 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2976
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2977 /* --------------- 70 to 7f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2978 Alt | FctKey | 0xc6, /* (Alt) F9 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2979 Alt | FctKey | 0xc7, /* (Alt) F10 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2980 Ctrl | FctKey | 0x6d, /* (Ctrl) Sys Rq */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2981 Ctrl | KeyPad | 4, /* (Ctrl) Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2982 Ctrl | KeyPad | 6, /* (Ctrl) Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2983 Ctrl | KeyPad | 1, /* (Ctrl) End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2984 Ctrl | KeyPad | 3, /* (Ctrl) Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2985 Ctrl | KeyPad | 7, /* (Ctrl) Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2986 Alt | Map | 1, /* '1' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2987 Alt | Map | 2, /* '2' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2988 Alt | Map | 3, /* '3' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2989 Alt | Map | 4, /* '4' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2990 Alt | Map | 5, /* '5' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2991 Alt | Map | 6, /* '6' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2992 Alt | Map | 7, /* '7' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2993 Alt | Map | 8, /* '8' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2994
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2995 /* --------------- 80 to 8f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2996 Alt | Map | 9, /* '9' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2997 Alt | Map | 10, /* '0' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2998 Alt | Map | 11, /* '-' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
2999 Alt | Map | 12, /* '=' */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3000 Ctrl | KeyPad | 9, /* (Ctrl) Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3001 FctKey | 0xc8, /* F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3002 FctKey | 0xc9, /* F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3003 Shift | FctKey | 0xc8, /* (Shift) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3004 Shift | FctKey | 0xc9, /* (Shift) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3005 Ctrl | FctKey | 0xc8, /* (Ctrl) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3006 Ctrl | FctKey | 0xc9, /* (Ctrl) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3007 Alt | FctKey | 0xc8, /* (Alt) F11 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3008 Alt | FctKey | 0xc9, /* (Alt) F12 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3009 Ctrl | KeyPad | 8, /* (Ctrl) Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3010 Ctrl | Grey | 2, /* (Ctrl) Grey - */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3011 Ctrl | KeyPad | 5, /* (Ctrl) Keypad 5 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3012
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3013 /* --------------- 90 to 9f --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3014 Ctrl | Grey | 3, /* (Ctrl) Grey + */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3015 Ctrl | KeyPad | 2, /* (Ctrl) Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3016 Ctrl | KeyPad | 0, /* (Ctrl) Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3017 Ctrl | KeyPad | 10, /* (Ctrl) Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3018 Ctrl | FctKey | 0x09, /* (Ctrl) Tab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3019 Ctrl | Grey | 0, /* (Ctrl) Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3020 Ctrl | Grey | 1, /* (Ctrl) Grey * */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3021 Alt | FctKey | 0x50, /* (Alt) Home */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3022 Alt | FctKey | 0x52, /* (Alt) Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3023 Alt | FctKey | 0x55, /* (Alt) Page Up */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3024 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3025 Alt | FctKey | 0x51, /* (Alt) Left */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3026 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3027 Alt | FctKey | 0x53, /* (Alt) Right */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3028 Ignore, /* NO KEY */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3029 Alt | FctKey | 0x57, /* (Alt) End */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3030
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3031 /* --------------- a0 to af --------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3032 Alt | KeyPad | 2, /* (Alt) Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3033 Alt | KeyPad | 3, /* (Alt) Page Down */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3034 Alt | KeyPad | 0, /* (Alt) Insert */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3035 Alt | KeyPad | 10, /* (Alt) Delete */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3036 Alt | Grey | 0, /* (Alt) Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3037 Alt | FctKey | 0x09, /* (Alt) Tab */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3038 Alt | Grey | 4 /* (Alt) Keypad Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3039 };
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3040
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3041 /* These bit-positions corresponds to values returned by BIOS */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3042 #define SHIFT_P 0x0003 /* two bits! */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3043 #define CTRL_P 0x0004
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3044 #define ALT_P 0x0008
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3045 #define SCRLOCK_P 0x0010
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3046 #define NUMLOCK_P 0x0020
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3047 #define CAPSLOCK_P 0x0040
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3048 #define ALT_GR_P 0x0800
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3049 #define SUPER_P 0x4000 /* pseudo */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3050 #define HYPER_P 0x8000 /* pseudo */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3051
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3052 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3053 dos_get_modifiers (keymask)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3054 int *keymask;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3055 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3056 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3057 int mask;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3058 int modifiers = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3059
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3060 /* Calculate modifier bits */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3061 regs.h.ah = extended_kbd ? 0x12 : 0x02;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3062 int86 (0x16, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3063
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3064 if (!extended_kbd)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3065 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3066 mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P |
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3067 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3068 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3069 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3070 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3071 mask = regs.h.al & (SHIFT_P |
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3072 SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3073
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3074 /* Do not break international keyboard support. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3075 /* When Keyb.Com is loaded, the right Alt key is */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3076 /* used for accessing characters like { and } */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3077 if (regs.h.ah & 2) /* Left ALT pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3078 mask |= ALT_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3079
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3080 if ((regs.h.ah & 8) != 0) /* Right ALT pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3081 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3082 mask |= ALT_GR_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3083 if (dos_hyper_key == 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3084 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3085 mask |= HYPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3086 modifiers |= hyper_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3087 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3088 else if (dos_super_key == 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3089 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3090 mask |= SUPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3091 modifiers |= super_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3092 }
16763
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
3093 else if (!international_keyboard)
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
3094 {
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
3095 /* 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
3096 like the Left Alt. */
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
3097 mask &= ~ALT_GR_P;
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
3098 mask |= ALT_P;
e4f0f7fe8304 (dos_set_keyboard): Test whether KEYB.COM is installed
Richard M. Stallman <rms@gnu.org>
parents: 16613
diff changeset
3099 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3100 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3101
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
3102 if (regs.h.ah & 1) /* Left CTRL pressed ? */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3103 mask |= CTRL_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3104
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3105 if (regs.h.ah & 4) /* Right CTRL pressed ? */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3106 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3107 if (dos_hyper_key == 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3108 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3109 mask |= HYPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3110 modifiers |= hyper_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3111 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3112 else if (dos_super_key == 2)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3113 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3114 mask |= SUPER_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3115 modifiers |= super_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3116 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3117 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3118 mask |= CTRL_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3119 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3120 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3121
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3122 if (mask & SHIFT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3123 modifiers |= shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3124 if (mask & CTRL_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3125 modifiers |= ctrl_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3126 if (mask & ALT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3127 modifiers |= meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3128
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3129 if (keymask)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3130 *keymask = mask;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3131 return modifiers;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3132 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3133
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3134 #define NUM_RECENT_DOSKEYS (100)
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3135 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
3136 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
3137 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
3138
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3139 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
3140 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
3141 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
3142 and then the scan code. */)
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3143 ()
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3144 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3145 Lisp_Object *keys = XVECTOR (recent_doskeys)->contents;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3146 Lisp_Object val;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3147
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3148 if (total_doskeys < NUM_RECENT_DOSKEYS)
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3149 return Fvector (total_doskeys, keys);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3150 else
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3151 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3152 val = Fvector (NUM_RECENT_DOSKEYS, keys);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3153 bcopy (keys + recent_doskeys_index,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3154 XVECTOR (val)->contents,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3155 (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
3156 bcopy (keys,
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3157 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
3158 recent_doskeys_index * sizeof (Lisp_Object));
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3159 return val;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3160 }
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3161 }
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3162
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3163 /* Get a char from keyboard. Function keys are put into the event queue. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3164 static int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3165 dos_rawgetc ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3166 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3167 struct input_event event;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3168 union REGS regs;
43371
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3169 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (SELECTED_FRAME());
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3170
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3171 #ifndef HAVE_X_WINDOWS
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
3172 /* 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
3173 IT_cmgoto (SELECTED_FRAME());
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3174 #endif
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
3175
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3176 /* The following condition is equivalent to `kbhit ()', except that
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3177 it uses the bios to do its job. This pleases DESQview/X. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3178 while ((regs.h.ah = extended_kbd ? 0x11 : 0x01),
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3179 int86 (0x16, &regs, &regs),
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3180 (regs.x.flags & 0x40) == 0)
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3181 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3182 union REGS regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3183 register unsigned char c;
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3184 int sc, code = -1, mask, kp_mode;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3185 int modifiers;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3186
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3187 regs.h.ah = extended_kbd ? 0x10 : 0x00;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3188 int86 (0x16, &regs, &regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3189 c = regs.h.al;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3190 sc = regs.h.ah;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3191
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3192 total_doskeys += 2;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3193 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
3194 = make_number (c);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3195 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
3196 recent_doskeys_index = 0;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3197 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
3198 = make_number (sc);
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3199 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
3200 recent_doskeys_index = 0;
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3201
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3202 modifiers = dos_get_modifiers (&mask);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3203
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3204 #ifndef HAVE_X_WINDOWS
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3205 if (!NILP (Vdos_display_scancodes))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3206 {
14157
38606398dfa6 (dos_rawgetc): Make buf longer.
Richard M. Stallman <rms@gnu.org>
parents: 14036
diff changeset
3207 char buf[11];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3208 sprintf (buf, "%02x:%02x*%04x",
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3209 (unsigned) (sc&0xff), (unsigned) c, mask);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3210 dos_direct_output (screen_size_Y - 2, screen_size_X - 12, buf, 10);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3211 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3212 #endif
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3213
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3214 if (sc == 0xe0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3215 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3216 switch (c)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3217 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3218 case 10: /* Ctrl Grey Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3219 code = Ctrl | Grey | 4;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3220 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3221 case 13: /* Grey Enter */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3222 code = Grey | 4;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3223 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3224 case '/': /* Grey / */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3225 code = Grey | 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3226 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3227 default:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3228 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3229 };
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3230 c = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3231 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3232 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3233 {
24559
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3234 /* 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
3235 if (keyboard->translate_table)
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3236 {
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3237 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
3238
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3239 while (p->sc)
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3240 {
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3241 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
3242 {
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3243 code = p->code;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3244 break;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3245 }
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3246 p++;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3247 }
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3248 }
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3249 /* 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
3250 one. */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3251 if (code == -1)
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3252 {
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3253 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
3254 continue;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3255 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
3256 continue;
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
3257 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3258 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3259
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3260 if (c == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3261 {
16967
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
3262 /* 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
3263 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
3264 `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
3265 `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
3266 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
3267 However, for keys with the `Map' property set, the ASCII
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
3268 code returns zero iff Alt is pressed. So, when we DON'T
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
3269 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
3270 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
3271 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
3272 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
3273 if ( (code & Alt)
4ca0a5e25605 dos_rawgetc: When international keyboard doesn't have
Eli Zaretskii <eliz@gnu.org>
parents: 16915
diff changeset
3274 || ( (code & 0xf000) == Map && !international_keyboard))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3275 modifiers |= meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3276 if (code & Ctrl)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3277 modifiers |= ctrl_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3278 if (code & Shift)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3279 modifiers |= shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3280 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3281
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3282 switch (code & 0xf000)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3283 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3284 case ModFct:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3285 if (c && !(mask & (SHIFT_P | ALT_P | CTRL_P | HYPER_P | SUPER_P)))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3286 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3287 c = 0; /* Special */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3288
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3289 case FctKey:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3290 if (c != 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3291 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3292
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3293 case Special:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3294 code |= 0xff00;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3295 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3296
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3297 case Normal:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3298 if (sc == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3299 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3300 if (c == 0) /* ctrl-break */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3301 continue;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3302 return c; /* ALT-nnn */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3303 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3304 if (!keyboard_map_all)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3305 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3306 if (c != ' ')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3307 return c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3308 code = c;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3309 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3310 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3311
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3312 case Map:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3313 if (c && !(mask & ALT_P) && !((mask & SHIFT_P) && (mask & CTRL_P)))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3314 if (!keyboard_map_all)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3315 return c;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3316
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3317 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3318 if (mask & ALT_P && code <= 10 && code > 0 && dos_keypad_mode & 0x200)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3319 mask |= SHIFT_P; /* ALT-1 => M-! etc. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3320
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3321 if (mask & SHIFT_P)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3322 {
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3323 code = keyboard->shifted[code];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3324 mask -= SHIFT_P;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3325 modifiers &= ~shift_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3326 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3327 else
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3328 if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[code] != ' ')
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3329 code = keyboard->alt_gr[code];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3330 else
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3331 code = keyboard->unshifted[code];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3332 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3333
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3334 case KeyPad:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3335 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3336 if (c == 0xe0) /* edit key */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3337 kp_mode = 3;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3338 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3339 if ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) /* numlock on */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3340 kp_mode = dos_keypad_mode & 0x03;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3341 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3342 kp_mode = (dos_keypad_mode >> 4) & 0x03;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3343
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3344 switch (kp_mode)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3345 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3346 case 0:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3347 if (code == 10 && dos_decimal_point)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3348 return dos_decimal_point;
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3349 return keypad_translate_map[code].char_code;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3350
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3351 case 1:
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3352 code = 0xff00 | keypad_translate_map[code].keypad_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3353 break;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3354
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3355 case 2:
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3356 code = keypad_translate_map[code].meta_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3357 modifiers = meta_modifier;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3358 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3359
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3360 case 3:
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3361 code = 0xff00 | keypad_translate_map[code].editkey_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3362 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3363 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3364 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3365
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3366 case Grey:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3367 code &= 0xff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3368 kp_mode = ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) ? 0x04 : 0x40;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3369 if (dos_keypad_mode & kp_mode)
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3370 code = 0xff00 | grey_key_translate_map[code].keypad_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3371 else
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
3372 code = grey_key_translate_map[code].char_code;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3373 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3374 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3375
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3376 make_event:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3377 if (code == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3378 continue;
43371
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3379
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3380 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3381 {
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3382 dpyinfo->mouse_face_hidden = 1;
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3383 clear_mouse_face (dpyinfo);
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3384 }
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3385
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3386 if (code >= 0x100)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3387 event.kind = non_ascii_keystroke;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3388 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3389 event.kind = ascii_keystroke;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3390 event.code = code;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3391 event.modifiers = modifiers;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3392 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
3393 event.arg = Qnil;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3394 event.timestamp = event_timestamp ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3395 kbd_buffer_store_event (&event);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3396 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3397
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
3398 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
3399 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3400 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
3401 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
3402 Lisp_Object mouse_window = Qnil;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3403
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3404 /* Check for mouse movement *before* buttons. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3405 mouse_check_moved ();
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3406
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
3407 /* 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
3408 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
3409 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
3410 {
43371
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3411 if (dpyinfo->mouse_face_hidden)
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3412 {
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3413 dpyinfo->mouse_face_hidden = 0;
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3414 clear_mouse_face (dpyinfo);
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3415 }
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3416
44337
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3417 /* Generate SELECT_WINDOW_EVENTs when needed. */
44359
ff9f7aee02c8 Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents: 44337
diff changeset
3418 if (mouse_autoselect_window)
43357
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3419 {
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3420 int mouse_area;
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3421
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3422 mouse_window = window_from_coordinates (SELECTED_FRAME(),
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3423 mouse_last_x,
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3424 mouse_last_y,
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3425 &mouse_area, 0);
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3426 /* 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
3427 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
3428 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
3429 it is active. */
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3430 if (WINDOWP (mouse_window)
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3431 && !EQ (mouse_window, last_mouse_window)
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3432 && !EQ (mouse_window, selected_window))
43357
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3433 {
44337
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3434 event.kind = SELECT_WINDOW_EVENT;
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3435 event.frame_or_window = mouse_window;
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3436 event.arg = Qnil;
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3437 event.timestamp = event_timestamp ();
228b881931ef (dos_rawgetc): Generate SELECT_WINDOW_EVENTs when required.
Eli Zaretskii <eliz@gnu.org>
parents: 44303
diff changeset
3438 kbd_buffer_store_event (&event);
43357
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3439 }
43363
bcefd6f01283 (last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43357
diff changeset
3440 last_mouse_window = mouse_window;
43357
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
3441 }
43363
bcefd6f01283 (last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43357
diff changeset
3442 else
bcefd6f01283 (last_mouse_window): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43357
diff changeset
3443 last_mouse_window = Qnil;
43371
263456abbeb0 (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43363
diff changeset
3444
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
3445 previous_help_echo = help_echo;
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3446 help_echo = help_echo_object = help_echo_window = Qnil;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3447 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
3448 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
3449 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
3450 /* 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
3451 changed, generate a HELP_EVENT. */
30050
ed1979c6dfb9 * xterm.c (note_mode_line_highlight, note_mouse_highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29613
diff changeset
3452 if (!NILP (help_echo) || !NILP (previous_help_echo))
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
3453 {
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
3454 event.kind = HELP_EVENT;
30180
c36d4c8b21b6 (dos_rawgetc): Adapt to change of HELP_EVENTs.
Gerd Moellmann <gerd@gnu.org>
parents: 30132
diff changeset
3455 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
3456 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
3457 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
3458 ? help_echo_window : selected_frame;
440ce7bfcd77 (dos_rawgetc): Use a single event for HELP_EVENT.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44364
diff changeset
3459 event.y = help_echo;
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3460 event.timestamp = event_timestamp ();
44528
d5befc8ddce0 (dos_rawgetc): int/Lisp_Object confusion.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44525
diff changeset
3461 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
3462 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
3463 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
3464 }
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
3465
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3466 for (but = 0; but < NUM_MOUSE_BUTTONS; but++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3467 for (press = 0; press < 2; press++)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3468 {
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3469 int button_num = but;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3470
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3471 if (press)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3472 ok = mouse_pressed (but, &x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3473 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3474 ok = mouse_released (but, &x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3475 if (ok)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3476 {
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3477 /* 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
3478 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
3479 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
3480 {
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3481 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
3482
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3483 /* 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
3484 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
3485 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
3486 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
3487 || !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
3488 button_num = 2;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3489 else
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3490 {
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3491 delay (100);
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3492 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
3493 || !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
3494 button_num = 2;
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3495 }
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3496 }
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3497
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3498 event.kind = mouse_click;
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3499 event.code = button_num;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3500 event.modifiers = dos_get_modifiers (0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3501 | (press ? down_modifier : up_modifier);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3502 event.x = x;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3503 event.y = y;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3504 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
3505 event.arg = Qnil;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3506 event.timestamp = event_timestamp ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3507 kbd_buffer_store_event (&event);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3508 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3509 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3510 }
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3511
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3512 return -1;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3513 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3514
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3515 static int prev_get_char = -1;
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3516
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3517 /* 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
3518
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3519 dos_keysns ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3520 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3521 if (prev_get_char != -1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3522 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3523 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3524 return ((prev_get_char = dos_rawgetc ()) != -1);
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3525 }
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3526
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3527 /* 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
3528
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3529 dos_keyread ()
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3530 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3531 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
3532 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3533 int c = prev_get_char;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3534 prev_get_char = -1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3535 return c;
8246
d48c2b01fba5 (mouse_init1): Use alternate mouse detection for old mouse drivers.
Richard M. Stallman <rms@gnu.org>
parents: 8194
diff changeset
3536 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3537 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3538 return dos_rawgetc ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3539 }
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
3540
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3541 #ifndef HAVE_X_WINDOWS
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3542 /* See xterm.c for more info. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3543 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3544 pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip)
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3545 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3546 register int pix_x, pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3547 register int *x, *y;
21785
c7ef8b48a039 (IT_ring_bell, IT_write_glyphs, IT_clear_end_of_line,
Eli Zaretskii <eliz@gnu.org>
parents: 21693
diff changeset
3548 XRectangle *bounds;
7273
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3549 int noclip;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3550 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3551 if (bounds) abort ();
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3552
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3553 /* Ignore clipping. */
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3554
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3555 *x = pix_x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3556 *y = pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3557 }
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3558
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3559 void
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3560 glyph_to_pixel_coords (f, x, y, pix_x, pix_y)
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3561 FRAME_PTR f;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3562 register int x, y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3563 register int *pix_x, *pix_y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3564 {
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3565 *pix_x = x;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3566 *pix_y = y;
24426d7e14eb Finish downcasing mouse_init1, mouse_off,
Richard M. Stallman <rms@gnu.org>
parents: 6505
diff changeset
3567 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3568
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3569 /* Simulation of X's menus. Nothing too fancy here -- just make it work
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3570 for now.
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3571
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3572 Actually, I don't know the meaning of all the parameters of the functions
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3573 here -- I only know how they are called by xmenu.c. I could of course
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3574 grab the nearest Xlib manual (down the hall, second-to-last door on the
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3575 left), but I don't think it's worth the effort. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3576
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3577 /* 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
3578 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
3579 /* 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
3580 last menu help message. */
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3581 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
3582
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3583 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3584 IT_menu_create ()
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3585 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3586 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3587
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3588 menu = (XMenu *) xmalloc (sizeof (XMenu));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3589 menu->allocated = menu->count = menu->panecount = menu->width = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3590 return menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3591 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3592
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3593 /* Allocate some (more) memory for MENU ensuring that there is room for one
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3594 for item. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3595
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3596 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3597 IT_menu_make_room (XMenu *menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3598 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3599 if (menu->allocated == 0)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3600 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3601 int count = menu->allocated = 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3602 menu->text = (char **) xmalloc (count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3603 menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3604 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
3605 menu->help_text = (char **) xmalloc (count * sizeof (char *));
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3606 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3607 else if (menu->allocated == menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3608 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3609 int count = menu->allocated = menu->allocated + 10;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3610 menu->text
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3611 = (char **) xrealloc (menu->text, count * sizeof (char *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3612 menu->submenu
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3613 = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3614 menu->panenumber
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3615 = (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
3616 menu->help_text
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
3617 = (char **) xrealloc (menu->help_text, count * sizeof (char *));
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3618 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3619 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3620
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3621 /* 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
3622
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3623 static XMenu *
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3624 IT_menu_search_pane (XMenu *menu, int pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3625 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3626 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3627 XMenu *try;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3628
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3629 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3630 if (menu->submenu[i])
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3631 {
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3632 if (pane == menu->panenumber[i])
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3633 return menu->submenu[i];
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3634 if ((try = IT_menu_search_pane (menu->submenu[i], pane)))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3635 return try;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3636 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3637 return (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3638 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3639
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3640 /* 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
3641
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3642 static void
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3643 IT_menu_calc_size (XMenu *menu, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3644 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3645 int i, h2, w2, maxsubwidth, maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3646
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3647 maxsubwidth = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3648 maxheight = menu->count;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3649 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3650 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3651 if (menu->submenu[i])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3652 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3653 IT_menu_calc_size (menu->submenu[i], &w2, &h2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3654 if (w2 > maxsubwidth) maxsubwidth = w2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3655 if (i + h2 > maxheight) maxheight = i + h2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3656 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3657 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3658 *width = menu->width + maxsubwidth;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3659 *height = maxheight;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3660 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3661
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
3662 /* 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
3663
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3664 static void
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3665 IT_menu_display (XMenu *menu, int y, int x, int pn, int *faces, int disp_help)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3666 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3667 int i, j, face, width;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3668 struct glyph *text, *p;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3669 char *q;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3670 int mx, my;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3671 int enabled, mousehere;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3672 int row, col;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3673 struct frame *sf = SELECTED_FRAME();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3674
27462
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
3675 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
3676
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3677 width = menu->width;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3678 text = (struct glyph *) xmalloc ((width + 2) * sizeof (struct glyph));
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3679 ScreenGetCursor (&row, &col);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3680 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
3681 IT_update_begin (sf);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3682 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3683 {
27409
4df4f3866b55 (IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents: 27046
diff changeset
3684 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
3685
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3686 IT_cursor_to (y + i, x);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3687 enabled
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3688 = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3689 mousehere = (y + i == my && x <= mx && mx < x + width + 2);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3690 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
3691 /* 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
3692 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
3693 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
3694 {
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3695 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
3696 menu_help_paneno = pn - 1;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3697 menu_help_itemno = i;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3698 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3699 p = text;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3700 SET_CHAR_GLYPH (*p, ' ', face, 0);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3701 p++;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3702 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
3703 {
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3704 if (*q > 26)
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3705 {
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3706 SET_CHAR_GLYPH (*p, *q++, face, 0);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3707 p++;
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3708 }
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3709 else /* make '^x' */
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3710 {
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3711 SET_CHAR_GLYPH (*p, '^', face, 0);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3712 p++;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3713 j++;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3714 SET_CHAR_GLYPH (*p, *q++ + 64, face, 0);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3715 p++;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3716 }
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3717 }
27409
4df4f3866b55 (IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents: 27046
diff changeset
3718 /* 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
3719 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
3720 {
4df4f3866b55 (IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents: 27046
diff changeset
3721 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
3722 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
3723 }
4df4f3866b55 (IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents: 27046
diff changeset
3724 for (; j < max_width - 2; j++, p++)
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3725 SET_CHAR_GLYPH (*p, ' ', face, 0);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3726
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3727 SET_CHAR_GLYPH (*p, menu->submenu[i] ? 16 : ' ', face, 0);
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3728 p++;
27409
4df4f3866b55 (IT_menu_display): Truncate long menu lines at the right
Eli Zaretskii <eliz@gnu.org>
parents: 27046
diff changeset
3729 IT_write_glyphs (text, max_width);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3730 }
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3731 IT_update_end (sf);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3732 IT_cursor_to (row, col);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3733 xfree (text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3734 }
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3735
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3736 /* --------------------------- X Menu emulation ---------------------- */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3737
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3738 /* Report availability of menus. */
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3739
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3740 int
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3741 have_menus_p ()
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3742 {
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3743 return 1;
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
3744 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3745
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3746 /* 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
3747
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3748 XMenu *
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3749 XMenuCreate (Display *foo1, Window foo2, char *foo3)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3750 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3751 return IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3752 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3753
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3754 /* Create a new pane and place it on the outer-most level. It is not
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3755 clear that it should be placed out there, but I don't know what else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3756 to do. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3757
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3758 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3759 XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3760 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3761 int len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3762 char *p;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3763
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3764 if (!enable)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3765 abort ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3766
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3767 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3768 menu->submenu[menu->count] = IT_menu_create ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3769 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3770 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
3771 menu->help_text[menu->count] = NULL;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3772 menu->count++;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3773
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3774 /* 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
3775 be written as ^x). */
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3776 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
3777 if (*p < 27)
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3778 len++;
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3779
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3780 if (len > menu->width)
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3781 menu->width = len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3782
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3783 return menu->panecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3784 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3785
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3786 /* 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
3787
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3788 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3789 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
3790 int foo, char *txt, int enable, char *help_text)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3791 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3792 int len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3793 char *p;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3794
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3795 if (pane)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3796 if (!(menu = IT_menu_search_pane (menu, pane)))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3797 return XM_FAILURE;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3798 IT_menu_make_room (menu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3799 menu->submenu[menu->count] = (XMenu *) 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3800 menu->text[menu->count] = txt;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3801 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
3802 menu->help_text[menu->count] = help_text;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3803 menu->count++;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3804
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3805 /* 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
3806 be written as ^x). */
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3807 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
3808 if (*p < 27)
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3809 len++;
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3810
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3811 if (len > menu->width)
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3812 menu->width = len;
15627
c5c4d478c78d (IT_menu_display): Display control characters as ^X.
Karl Heuer <kwzh@gnu.org>
parents: 15618
diff changeset
3813
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3814 return XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3815 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3816
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3817 /* 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
3818
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3819 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3820 XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y,
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3821 int *ulx, int *uly, int *width, int *height)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3822 {
13714
45e71ea63d71 (XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents: 13657
diff changeset
3823 IT_menu_calc_size (menu, width, height);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3824 *ulx = x + 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3825 *uly = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3826 *width += 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3827 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3828
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3829 struct IT_menu_state
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3830 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3831 void *screen_behind;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3832 XMenu *menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3833 int pane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3834 int x, y;
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3835 };
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3836
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3837
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3838 /* 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
3839
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3840 int
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3841 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
3842 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
3843 void (*help_callback)(char *, int, int))
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3844 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3845 struct IT_menu_state *state;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3846 int statecount;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3847 int x, y, i, b;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3848 int screensize;
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3849 int faces[4];
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3850 Lisp_Object selectface;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3851 int leave, result, onepane;
13860
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
3852 int title_faces[4]; /* face to display the menu title */
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3853 int buffers_num_deleted = 0;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3854 struct frame *sf = SELECTED_FRAME();
30132
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
3855 Lisp_Object saved_echo_area_message;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3856
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3857 /* 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
3858 if (have_mouse <= 0)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3859 return XM_IA_SELECT;
16871
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
3860 /* 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
3861 around the display. */
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
3862 if (x0 <= 0)
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
3863 x0 = 1;
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
3864 if (y0 <= 0)
45a12f628d3f * (XMenuActivate): Don't allow non-positive menu
Eli Zaretskii <eliz@gnu.org>
parents: 16837
diff changeset
3865 y0 = 1;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3866
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
3867 /* 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
3868 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
3869 mouse_preempted++;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
3870
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
3871 state = alloca (menu->panecount * sizeof (struct IT_menu_state));
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3872 screensize = screen_size * 2;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3873 faces[0]
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3874 = lookup_derived_face (sf, intern ("msdos-menu-passive-face"),
28227
4bba3027ae58 (XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents: 28092
diff changeset
3875 0, DEFAULT_FACE_ID);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3876 faces[1]
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3877 = lookup_derived_face (sf, intern ("msdos-menu-active-face"),
28227
4bba3027ae58 (XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents: 28092
diff changeset
3878 0, DEFAULT_FACE_ID);
25110
4833aea1f1e7 (IT_set_face): Rewritten for the new redisplay engine.
Eli Zaretskii <eliz@gnu.org>
parents: 25100
diff changeset
3879 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
3880 faces[2] = lookup_derived_face (sf, selectface,
28227
4bba3027ae58 (XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents: 28092
diff changeset
3881 0, faces[0]);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3882 faces[3] = lookup_derived_face (sf, selectface,
28227
4bba3027ae58 (XMenuActivate): Args to lookup_derived_face changed.
Kenichi Handa <handa@m17n.org>
parents: 28092
diff changeset
3883 0, faces[1]);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3884
13860
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
3885 /* 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
3886 `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
3887 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
3888 title_faces[i] = faces[3];
659a54e026bb (XMenuActivate): Make sure the menu title is always
Richard M. Stallman <rms@gnu.org>
parents: 13848
diff changeset
3889
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3890 statecount = 1;
15387
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3891
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3892 /* 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
3893 digit (which is ugly).
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3894
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3895 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
3896 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
3897 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
3898 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
3899 {
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3900 menu->text[0][7] = '\0';
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3901 buffers_num_deleted = 1;
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3902 }
30132
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
3903
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
3904 /* 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
3905 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
3906 before the call to message_with_string. */
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
3907 saved_echo_area_message = Fcurrent_message ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3908 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3909 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3910 ScreenRetrieve (state[0].screen_behind = xmalloc (screensize));
13714
45e71ea63d71 (XMenuActivate): Display the menu pane title.
Karl Heuer <kwzh@gnu.org>
parents: 13657
diff changeset
3911
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
3912 /* 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
3913 panes, which is ugly. */
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
3914 IT_display_cursor (0);
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
3915
27462
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
3916 /* Display the menu title. */
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3917 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
3918 if (buffers_num_deleted)
9ac116f47f33 (check_x): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents: 15341
diff changeset
3919 menu->text[0][7] = ' ';
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3920 if ((onepane = menu->count == 1 && menu->submenu[0]))
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3921 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3922 menu->width = menu->submenu[0]->width;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3923 state[0].menu = menu->submenu[0];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3924 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3925 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3926 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3927 state[0].menu = menu;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3928 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3929 state[0].x = x0 - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3930 state[0].y = y0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3931 state[0].pane = onepane;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3932
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3933 mouse_last_x = -1; /* A hack that forces display. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3934 leave = 0;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3935 while (!leave)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3936 {
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
3937 if (!mouse_visible) mouse_on ();
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3938 mouse_check_moved ();
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3939 if (sf->mouse_moved)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3940 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
3941 sf->mouse_moved = 0;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3942 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3943 mouse_get_xy (&x, &y);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3944 for (i = 0; i < statecount; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3945 if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3946 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3947 int dy = y - state[i].y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3948 if (0 <= dy && dy < state[i].menu->count)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3949 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3950 if (!state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3951 if (state[i].menu->panenumber[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3952 result = XM_SUCCESS;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3953 else
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3954 result = XM_IA_SELECT;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3955 *pane = state[i].pane - 1;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3956 *selidx = dy;
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13860
diff changeset
3957 /* We hit some part of a menu, so drop extra menus that
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3958 have been opened. That does not include an open and
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3959 active submenu. */
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3960 if (i != statecount - 2
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3961 || state[i].menu->submenu[dy] != state[i+1].menu)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3962 while (i != statecount - 1)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3963 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3964 statecount--;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3965 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3966 ScreenUpdate (state[statecount].screen_behind);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
3967 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
3968 dosv_refresh_virtual_screen (0, screen_size);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3969 xfree (state[statecount].screen_behind);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3970 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3971 if (i == statecount - 1 && state[i].menu->submenu[dy])
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3972 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3973 IT_menu_display (state[i].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3974 state[i].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3975 state[i].x,
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3976 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
3977 faces, 1);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3978 state[statecount].menu = state[i].menu->submenu[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3979 state[statecount].pane = state[i].menu->panenumber[dy];
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3980 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3981 ScreenRetrieve (state[statecount].screen_behind
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3982 = xmalloc (screensize));
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3983 state[statecount].x
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3984 = state[i].x + state[i].menu->width + 2;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3985 state[statecount].y = y;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3986 statecount++;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3987 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3988 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3989 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3990 IT_menu_display (state[statecount - 1].menu,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3991 state[statecount - 1].y,
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3992 state[statecount - 1].x,
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
3993 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
3994 faces, 1);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
3995 }
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
3996 else
27462
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
3997 {
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
3998 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
3999 && 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
4000 {
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
4001 help_callback (menu_help_message,
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
4002 menu_help_paneno, menu_help_itemno);
27640
4ce3be69ca1f (XMenuActivate): Turn off the cursor after displaying
Eli Zaretskii <eliz@gnu.org>
parents: 27462
diff changeset
4003 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
4004 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
4005 }
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
4006 /* 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
4007 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
4008 __dpmi_yield ();
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
4009 }
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
4010 for (b = 0; b < mouse_button_count && !leave; b++)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4011 {
23497
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
4012 /* 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
4013 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
4014 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
4015 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
4016 {
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
4017 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
4018 __dpmi_yield ();
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
4019 leave = 1;
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
4020 }
eee76d0af99c (mouse_init): Reset the button press/release info of the mouse driver.
Eli Zaretskii <eliz@gnu.org>
parents: 23156
diff changeset
4021 (void) mouse_released (b, &x, &y);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4022 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4023 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4024
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4025 mouse_off ();
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4026 ScreenUpdate (state[0].screen_behind);
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
4027 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
4028 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
4029
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
4030 /* 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
4031 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
4032 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
4033 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
4034 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
4035 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
4036 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
4037 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
4038 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
4039 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
4040 know about it.
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
4041
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
4042 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
4043 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
4044 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
4045 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
4046 erasing it works correctly... */
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
4047 if (! NILP (saved_echo_area_message))
5d20e989c3d4 (XMenuActivate): After exiting the menu, restore the
Eli Zaretskii <eliz@gnu.org>
parents: 30050
diff changeset
4048 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
4049 message (0);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4050 while (statecount--)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4051 xfree (state[statecount].screen_behind);
16598
4b0b6719bbd2 [__DJGPP__ >= 2] (dos_direct_output): Faster method of
Karl Heuer <kwzh@gnu.org>
parents: 16524
diff changeset
4052 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
4053 /* 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
4054 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
4055 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
4056 (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
4057 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
4058 discard_mouse_events ();
30711
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
4059 mouse_clear_clicks ();
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
4060 if (!kbd_buffer_events_waiting (1))
1b27b74c2510 Include keyboard.h.
Eli Zaretskii <eliz@gnu.org>
parents: 30627
diff changeset
4061 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
4062 /* 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
4063 mouse_preempted--;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4064 return result;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4065 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4066
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4067 /* Dispose of a menu. */
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
4068
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
4069 void
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
4070 XMenuDestroy (Display *foo, XMenu *menu)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4071 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4072 int i;
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4073 if (menu->allocated)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4074 {
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4075 for (i = 0; i < menu->count; i++)
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4076 if (menu->submenu[i])
10501
19c4a9ef23e5 (XMenuCreate, XMenuAddPane, XMenuAddSelection, XMenuLocate,
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
4077 XMenuDestroy (foo, menu->submenu[i]);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4078 xfree (menu->text);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4079 xfree (menu->submenu);
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4080 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
4081 xfree (menu->help_text);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4082 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4083 xfree (menu);
27462
a4cddf1245d7 (IT_clear_end_of_line): Print the extent of the cleared
Eli Zaretskii <eliz@gnu.org>
parents: 27409
diff changeset
4084 menu_help_message = prev_menu_help_message = NULL;
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4085 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4086
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
4087 int
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
4088 x_pixel_width (struct frame *f)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4089 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
4090 return FRAME_WIDTH (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4091 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4092
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
4093 int
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
4094 x_pixel_height (struct frame *f)
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4095 {
12995
a3620c5ffad7 (putchar): Call internal_flush instead of _flsbuf.
Richard M. Stallman <rms@gnu.org>
parents: 12614
diff changeset
4096 return FRAME_HEIGHT (f);
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4097 }
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9118
diff changeset
4098 #endif /* !HAVE_X_WINDOWS */
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
4099
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4100 /* ----------------------- DOS / UNIX conversion --------------------- */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4101
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4102 void msdos_downcase_filename (unsigned char *);
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4103
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4104 /* Destructively turn backslashes into slashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4105
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4106 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4107 dostounix_filename (p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4108 register char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4109 {
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4110 msdos_downcase_filename (p);
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4111
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4112 while (*p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4113 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4114 if (*p == '\\')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4115 *p = '/';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4116 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4117 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4118 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4119
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4120 /* Destructively turn slashes into backslashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4121
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4122 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4123 unixtodos_filename (p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4124 register char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4125 {
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4126 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
4127 {
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4128 *p += 'a' - 'A';
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4129 p += 2;
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4130 }
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4131
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4132 while (*p)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4133 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4134 if (*p == '/')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4135 *p = '\\';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4136 p++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4137 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4138 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4139
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4140 /* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4141
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4142 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4143 getdefdir (drive, dst)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4144 int drive;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4145 char *dst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4146 {
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4147 char in_path[4], *p = in_path;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4148 int e = errno;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4149
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4150 /* 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
4151 if (drive != 0)
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4152 {
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4153 *p++ = drive + 'A' - 1;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4154 *p++ = ':';
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4155 }
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4156
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4157 *p++ = '.';
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4158 *p = '\0';
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4159 errno = 0;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4160 _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
4161 /* _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
4162 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
4163 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
4164 return 0;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4165
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4166 msdos_downcase_filename (dst);
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4167
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4168 errno = e;
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4169 return 1;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4170 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4171
42192
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4172 char *
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4173 emacs_root_dir (void)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4174 {
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4175 static char root_dir[4];
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4176
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4177 sprintf (root_dir, "%c:/", 'A' + getdisk ());
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4178 root_dir[0] = tolower (root_dir[0]);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4179 return root_dir;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4180 }
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 41940
diff changeset
4181
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4182 /* Remove all CR's that are followed by a LF. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4183
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4184 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4185 crlf_to_lf (n, buf)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4186 register int n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4187 register unsigned char *buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4188 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4189 unsigned char *np = buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4190 unsigned char *startp = buf;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4191 unsigned char *endp = buf + n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4192
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4193 if (n == 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4194 return n;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4195 while (buf < endp - 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4196 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4197 if (*buf == 0x0d)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4198 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4199 if (*(++buf) != 0x0a)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4200 *np++ = 0x0d;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4201 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4202 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4203 *np++ = *buf++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4204 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4205 if (buf < endp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4206 *np++ = *buf++;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4207 return np - startp;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4208 }
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4209
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4210 #if defined(__DJGPP__) && __DJGPP__ == 2 && __DJGPP_MINOR__ == 0
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4211
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4212 /* In DJGPP v2.0, library `write' can call `malloc', which might
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4213 cause relocation of the buffer whose address we get in ADDR.
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4214 Here is a version of `write' that avoids calling `malloc',
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4215 to serve us until such time as the library is fixed.
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4216 Actually, what we define here is called `__write', because
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4217 `write' is a stub that just jmp's to `__write' (to be
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4218 POSIXLY-correct with respect to the global name-space). */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4219
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4220 #include <io.h> /* for _write */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4221 #include <libc/dosio.h> /* for __file_handle_modes[] */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4222
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4223 static char xbuf[64 * 1024]; /* DOS cannot write more in one chunk */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4224
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4225 #define XBUF_END (xbuf + sizeof (xbuf) - 1)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4226
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4227 int
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4228 __write (int handle, const void *buffer, size_t count)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4229 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4230 if (count == 0)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4231 return 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4232
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4233 if(__file_handle_modes[handle] & O_BINARY)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4234 return _write (handle, buffer, count);
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4235 else
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4236 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4237 char *xbp = xbuf;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4238 const char *bp = buffer;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4239 int total_written = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4240 int nmoved = 0, ncr = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4241
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4242 while (count)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4243 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4244 /* The next test makes sure there's space for at least 2 more
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4245 characters in xbuf[], so both CR and LF can be put there. */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4246 if (xbp < XBUF_END)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4247 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4248 if (*bp == '\n')
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4249 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4250 ncr++;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4251 *xbp++ = '\r';
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4252 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4253 *xbp++ = *bp++;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4254 nmoved++;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4255 count--;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4256 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4257 if (xbp >= XBUF_END || !count)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4258 {
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4259 size_t to_write = nmoved + ncr;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4260 int written = _write (handle, xbuf, to_write);
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4261
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4262 if (written == -1)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4263 return -1;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4264 else
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4265 total_written += nmoved; /* CRs aren't counted in ret value */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4266
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4267 /* If some, but not all were written (disk full?), return
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4268 an estimate of the total written bytes not counting CRs. */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4269 if (written < to_write)
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4270 return total_written - (to_write - written) * nmoved/to_write;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4271
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4272 nmoved = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4273 ncr = 0;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4274 xbp = xbuf;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4275 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4276 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4277 return total_written;
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4278 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4279 }
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4280
16524
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4281 /* A low-level file-renaming function which works around Windows 95 bug.
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4282 This is pulled directly out of DJGPP v2.01 library sources, and only
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4283 used when you compile with DJGPP v2.0. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4284
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4285 #include <io.h>
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4286
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4287 int _rename(const char *old, const char *new)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4288 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4289 __dpmi_regs r;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4290 int olen = strlen(old) + 1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4291 int i;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4292 int use_lfn = _USE_LFN;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4293 char tempfile[FILENAME_MAX];
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4294 const char *orig = old;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4295 int lfn_fd = -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4296
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4297 r.x.dx = __tb_offset;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4298 r.x.di = __tb_offset + olen;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4299 r.x.ds = r.x.es = __tb_segment;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4300
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4301 if (use_lfn)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4302 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4303 /* Windows 95 bug: for some filenames, when you rename
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4304 file -> file~ (as in Emacs, to leave a backup), the
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4305 short 8+3 alias doesn't change, which effectively
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4306 makes OLD and NEW the same file. We must rename
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4307 through a temporary file to work around this. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4308
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4309 char *pbase = 0, *p;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4310 static char try_char[] = "abcdefghijklmnopqrstuvwxyz012345789";
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4311 int idx = sizeof(try_char) - 1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4312
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4313 /* Generate a temporary name. Can't use `tmpnam', since $TMPDIR
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4314 might point to another drive, which will fail the DOS call. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4315 strcpy(tempfile, old);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4316 for (p = tempfile; *p; p++) /* ensure temporary is on the same drive */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4317 if (*p == '/' || *p == '\\' || *p == ':')
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4318 pbase = p;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4319 if (pbase)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4320 pbase++;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4321 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4322 pbase = tempfile;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4323 strcpy(pbase, "X$$djren$$.$$temp$$");
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4324
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4325 do
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4326 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4327 if (idx <= 0)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4328 return -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4329 *pbase = try_char[--idx];
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4330 } while (_chmod(tempfile, 0) != -1);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4331
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4332 r.x.ax = 0x7156;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4333 _put_path2(tempfile, olen);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4334 _put_path(old);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4335 __dpmi_int(0x21, &r);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4336 if (r.x.flags & 1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4337 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4338 errno = __doserr_to_errno(r.x.ax);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4339 return -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4340 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4341
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4342 /* Now create a file with the original name. This will
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4343 ensure that NEW will always have a 8+3 alias
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4344 different from that of OLD. (Seems to be required
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4345 when NameNumericTail in the Registry is set to 0.) */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4346 lfn_fd = _creat(old, 0);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4347
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4348 olen = strlen(tempfile) + 1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4349 old = tempfile;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4350 r.x.di = __tb_offset + olen;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4351 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4352
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4353 for (i=0; i<2; i++)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4354 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4355 if(use_lfn)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4356 r.x.ax = 0x7156;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4357 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4358 r.h.ah = 0x56;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4359 _put_path2(new, olen);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4360 _put_path(old);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4361 __dpmi_int(0x21, &r);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4362 if(r.x.flags & 1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4363 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4364 if (r.x.ax == 5 && i == 0) /* access denied */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4365 remove(new); /* and try again */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4366 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4367 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4368 errno = __doserr_to_errno(r.x.ax);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4369
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4370 /* Restore to original name if we renamed it to temporary. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4371 if (use_lfn)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4372 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4373 if (lfn_fd != -1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4374 {
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4375 _close (lfn_fd);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4376 remove (orig);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4377 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4378 _put_path2(orig, olen);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4379 _put_path(tempfile);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4380 r.x.ax = 0x7156;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4381 __dpmi_int(0x21, &r);
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4382 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4383 return -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4384 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4385 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4386 else
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4387 break;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4388 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4389
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4390 /* Success. Delete the file possibly created to work
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4391 around the Windows 95 bug. */
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4392 if (lfn_fd != -1)
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4393 return (_close (lfn_fd) == 0) ? remove (orig) : -1;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4394 return 0;
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4395 }
84440bd95727 [__DJGPP_MINOR__ == 0] (_rename): New function, a
Richard M. Stallman <rms@gnu.org>
parents: 16310
diff changeset
4396
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4397 #endif /* __DJGPP__ == 2 && __DJGPP_MINOR__ == 0 */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
4398
15174
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
4399 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
4400 0, 0, 0,
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
4401 doc: /* Return non-nil if long file names are supported on MSDOS. */)
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
4402 ()
15174
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
4403 {
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
4404 return (_USE_LFN ? Qt : Qnil);
08937f70419e (Fmsdos_long_file_names): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15125
diff changeset
4405 }
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4406
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4407 /* 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
4408
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4409 void
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4410 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
4411 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
4412 {
15588
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4413 /* Always lower-case drive letters a-z, even if the filesystem
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4414 preserves case in filenames.
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4415 This is so MSDOS filenames could be compared by string comparison
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4416 functions that are case-sensitive. Even case-preserving filesystems
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4417 do not distinguish case in drive letters. */
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4418 if (p[1] == ':' && *p >= 'A' && *p <= 'Z')
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4419 {
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4420 *p += 'a' - 'A';
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4421 p += 2;
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4422 }
e49a2eb71713 (msdos_downcase_filename):
Miles Bader <miles@gnu.org>
parents: 15387
diff changeset
4423
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4424 /* 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
4425 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
4426 for ( ; *p; p++)
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4427 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
4428 *p += 'a' - 'A';
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4429 }
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4430
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4431 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
4432 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
4433 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
4434 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
4435 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
4436 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
4437 (filename)
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4438 Lisp_Object filename;
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4439 {
15222
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
4440 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
4441
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
4442 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
4443 return Qnil;
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
4444
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
4445 tem = Fcopy_sequence (filename);
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
4446 msdos_downcase_filename (XSTRING (tem)->data);
cc264dd966cd (Fmsdos_downcase_filename): Don't change the argument, return a copy.
Richard M. Stallman <rms@gnu.org>
parents: 15219
diff changeset
4447 return tem;
15219
a800d1a0f07e (msdos_downcase_filename): New function to convert case in filenames.
Richard M. Stallman <rms@gnu.org>
parents: 15186
diff changeset
4448 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4449
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4450 /* The Emacs root directory as determined by init_environment. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4451
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4452 static char emacsroot[MAXPATHLEN];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4453
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4454 char *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4455 rootrelativepath (rel)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4456 char *rel;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4457 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4458 static char result[MAXPATHLEN + 10];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4459
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4460 strcpy (result, emacsroot);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4461 strcat (result, "/");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4462 strcat (result, rel);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4463 return result;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4464 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4465
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4466 /* Define a lot of environment variables if not already defined. Don't
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4467 remove anything unless you know what you're doing -- lots of code will
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4468 break if one or more of these are missing. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4469
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4470 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4471 init_environment (argc, argv, skip_args)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4472 int argc;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4473 char **argv;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4474 int skip_args;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4475 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4476 char *s, *t, *root;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4477 int len;
22054
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4478 static const char * const tempdirs[] = {
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4479 "$TMPDIR", "$TEMP", "$TMP", "c:/"
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4480 };
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4481 int i;
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4482 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
4483
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4484 /* 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
4485 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
4486 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
4487 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
4488 for (i = 0; i < imax ; i++)
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4489 {
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4490 const char *tmp = tempdirs[i];
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4491
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4492 if (*tmp == '$')
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4493 tmp = getenv (tmp + 1);
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4494 /* 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
4495 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
4496 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
4497 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
4498 if (tmp && access (tmp, D_OK) == 0)
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4499 {
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4500 setenv ("TMPDIR", tmp, 1);
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4501 break;
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4502 }
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4503 }
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4504 if (i >= imax)
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4505 cmd_error_internal
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4506 (Fcons (Qerror,
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4507 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
4508 Qnil)),
d313bff62b93 (init_environment): Set TMPDIR to an existing
Eli Zaretskii <eliz@gnu.org>
parents: 21785
diff changeset
4509 "While setting TMPDIR: ");
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4510
23815
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
4511 /* 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
4512 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
4513 (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
4514 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
4515 startup_time = clock ();
fe9557bb7056 (init_environment): Record the time we started up.
Eli Zaretskii <eliz@gnu.org>
parents: 23497
diff changeset
4516
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4517 /* Find our root from argv[0]. Assuming argv[0] is, say,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4518 "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4519 root = alloca (MAXPATHLEN + 20);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4520 _fixpath (argv[0], root);
15618
5da6a61ce827 (dostounix_filename): On caseless filesystems, downcase the filename.
Miles Bader <miles@gnu.org>
parents: 15588
diff changeset
4521 msdos_downcase_filename (root);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4522 len = strlen (root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4523 while (len > 0 && root[len] != '/' && root[len] != ':')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4524 len--;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4525 root[len] = '\0';
19295
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
4526 if (len > 4
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
4527 && (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
4528 || strcmp (root + len - 4, "/src") == 0)) /* under a debugger */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4529 root[len - 4] = '\0';
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4530 else
19295
812986c77ae2 (init_environment): Set Emacs root directory properly when
Richard M. Stallman <rms@gnu.org>
parents: 19293
diff changeset
4531 strcpy (root, "c:/emacs"); /* let's be defensive */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4532 len = strlen (root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4533 strcpy (emacsroot, root);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4534
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4535 /* We default HOME to our root. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4536 setenv ("HOME", root, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4537
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4538 /* We default EMACSPATH to root + "/bin". */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4539 strcpy (root + len, "/bin");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4540 setenv ("EMACSPATH", root, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4541
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4542 /* I don't expect anybody to ever use other terminals so the internal
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4543 terminal is the default. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4544 setenv ("TERM", "internal", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4545
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4546 #ifdef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4547 /* Emacs expects DISPLAY to be set. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4548 setenv ("DISPLAY", "unix:0.0", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4549 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4550
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4551 /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4552 downcase it and mirror the backslashes. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4553 s = getenv ("COMSPEC");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4554 if (!s) s = "c:/command.com";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4555 t = alloca (strlen (s) + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4556 strcpy (t, s);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4557 dostounix_filename (t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4558 setenv ("SHELL", t, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4559
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4560 /* PATH is also downcased and backslashes mirrored. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4561 s = getenv ("PATH");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4562 if (!s) s = "";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4563 t = alloca (strlen (s) + 3);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4564 /* Current directory is always considered part of MsDos's path but it is
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4565 not normally mentioned. Now it is. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4566 strcat (strcpy (t, ".;"), s);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4567 dostounix_filename (t); /* Not a single file name, but this should work. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4568 setenv ("PATH", t, 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4569
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4570 /* In some sense all dos users have root privileges, so... */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4571 setenv ("USER", "root", 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4572 setenv ("NAME", getenv ("USER"), 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4573
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4574 /* Time zone determined from country code. To make this possible, the
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4575 country code may not span more than one time zone. In other words,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4576 in the USA, you lose. */
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
4577 if (!getenv ("TZ"))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4578 switch (dos_country_code)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4579 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4580 case 31: /* Belgium */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4581 case 32: /* The Netherlands */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4582 case 33: /* France */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4583 case 34: /* Spain */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4584 case 36: /* Hungary */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4585 case 38: /* Yugoslavia (or what's left of it?) */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4586 case 39: /* Italy */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4587 case 41: /* Switzerland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4588 case 42: /* Tjekia */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4589 case 45: /* Denmark */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4590 case 46: /* Sweden */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4591 case 47: /* Norway */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4592 case 48: /* Poland */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4593 case 49: /* Germany */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4594 /* Daylight saving from last Sunday in March to last Sunday in
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4595 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
4596 setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4597 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4598 case 44: /* United Kingdom */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4599 case 351: /* Portugal */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4600 case 354: /* Iceland */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
4601 setenv ("TZ", "GMT+00", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4602 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4603 case 81: /* Japan */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4604 case 82: /* Korea */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
4605 setenv ("TZ", "JST-09", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4606 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4607 case 90: /* Turkey */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4608 case 358: /* Finland */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
4609 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
4610 break;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4611 case 972: /* Israel */
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
4612 /* 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
4613 `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
4614 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
4615 setenv ("TZ", "IST-02IDT-03,M4.1.6/00:00,M9.5.6/01:00", 0);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4616 break;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4617 }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4618 tzset ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4619 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4620
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4621
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4622
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4623 static int break_stat; /* BREAK check mode status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4624 static int stdin_stat; /* stdin IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4625
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4626 #if __DJGPP__ < 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4627
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4628 /* These must be global. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4629 static _go32_dpmi_seginfo ctrl_break_vector;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4630 static _go32_dpmi_registers ctrl_break_regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4631 static int ctrlbreakinstalled = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4632
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4633 /* Interrupt level detection of Ctrl-Break. Don't do anything fancy here! */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4634
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4635 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4636 ctrl_break_func (regs)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4637 _go32_dpmi_registers *regs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4638 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4639 Vquit_flag = Qt;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4640 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4641
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4642 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4643 install_ctrl_break_check ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4644 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4645 if (!ctrlbreakinstalled)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4646 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4647 /* Don't press Ctrl-Break if you don't have either DPMI or Emacs
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4648 was compiler with Djgpp 1.11 maintenance level 5 or later! */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4649 ctrlbreakinstalled = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4650 ctrl_break_vector.pm_offset = (int) ctrl_break_func;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4651 _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4652 &ctrl_break_regs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4653 _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4654 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4655 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4656
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4657 #endif /* __DJGPP__ < 2 */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4658
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
4659 /* 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
4660 control chars by DOS. Determine the keyboard type. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4661
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4662 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4663 dos_ttraw ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4664 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4665 union REGS inregs, outregs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4666 static int first_time = 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4667
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4668 break_stat = getcbrk ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4669 setcbrk (0);
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4670 #if __DJGPP__ < 2
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4671 install_ctrl_break_check ();
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4672 #endif
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4673
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4674 if (first_time)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4675 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4676 inregs.h.ah = 0xc0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4677 int86 (0x15, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4678 extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4679
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4680 have_mouse = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4681
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4682 if (internal_terminal
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4683 #ifdef HAVE_X_WINDOWS
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4684 && inhibit_window_system
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4685 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4686 )
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4687 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4688 inregs.x.ax = 0x0021;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4689 int86 (0x33, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4690 have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4691 if (!have_mouse)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4692 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4693 /* Reportedly, the above doesn't work for some mouse drivers. There
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4694 is an additional detection method that should work, but might be
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4695 a little slower. Use that as an alternative. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4696 inregs.x.ax = 0x0000;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4697 int86 (0x33, &inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4698 have_mouse = (outregs.x.ax & 0xffff) == 0xffff;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4699 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4700
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4701 if (have_mouse)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4702 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4703 have_mouse = 1; /* enable mouse */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4704 mouse_visible = 0;
30532
328993ad6017 (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 30529
diff changeset
4705 mouse_setup_buttons (outregs.x.bx);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4706 mouse_position_hook = &mouse_get_pos;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4707 mouse_init ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4708 }
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4709
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4710 #ifndef HAVE_X_WINDOWS
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4711 #if __DJGPP__ >= 2
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4712 /* Save the cursor shape used outside Emacs. */
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4713 outside_cursor = _farpeekw (_dos_ds, 0x460);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4714 #endif
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4715 #endif
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4716 }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4717
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4718 first_time = 0;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4719
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4720 #if __DJGPP__ >= 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4721
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4722 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
4723 return (stdin_stat != -1);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4724 }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4725 else
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4726 return (setmode (fileno (stdin), O_BINARY) != -1);
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4727
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4728 #else /* __DJGPP__ < 2 */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4729
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4730 }
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4731
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4732 /* I think it is wrong to overwrite `stdin_stat' every time
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4733 but the first one this function is called, but I don't
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4734 want to change the way it used to work in v1.x.--EZ */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4735
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4736 inregs.x.ax = 0x4400; /* Get IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4737 inregs.x.bx = 0x00; /* 0 = stdin. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4738 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4739 stdin_stat = outregs.h.dl;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4740
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4741 inregs.x.dx = stdin_stat | 0x0020; /* raw mode */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4742 inregs.x.ax = 0x4401; /* Set IOCTL status */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4743 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4744 return !outregs.x.cflag;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4745
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4746 #endif /* __DJGPP__ < 2 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4747 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4748
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4749 /* 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
4750
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4751 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4752 dos_ttcooked ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4753 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4754 union REGS inregs, outregs;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4755
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4756 setcbrk (break_stat);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4757 mouse_off ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4758
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4759 #if __DJGPP__ >= 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4760
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4761 #ifndef HAVE_X_WINDOWS
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4762 /* 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
4763 if (outside_cursor)
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4764 {
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4765 inregs.h.ah = 1;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4766 inregs.x.cx = outside_cursor;
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4767 int86 (0x10, &inregs, &outregs);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4768 }
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4769 #endif
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
4770
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4771 return (setmode (fileno (stdin), stdin_stat) != -1);
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4772
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4773 #else /* not __DJGPP__ >= 2 */
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4774
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4775 inregs.x.ax = 0x4401; /* Set IOCTL status. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4776 inregs.x.bx = 0x00; /* 0 = stdin. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4777 inregs.x.dx = stdin_stat;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4778 intdos (&inregs, &outregs);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4779 return !outregs.x.cflag;
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4780
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4781 #endif /* not __DJGPP__ >= 2 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4782 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4783
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4784
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4785 /* 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
4786 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
4787 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
4788
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4789 int
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4790 run_msdos_command (argv, working_dir, tempin, tempout, temperr, envv)
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4791 unsigned char **argv;
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4792 const char *working_dir;
13718
e1b33f87545f (run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents: 13717
diff changeset
4793 int tempin, tempout, temperr;
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4794 char **envv;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4795 {
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4796 char *saveargv1, *saveargv2, *lowcase_argv0, *pa, *pl;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4797 char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4798 int msshell, result = -1;
16915
8d28d96f6031 (run_msdos_command): Remove unused variables.
Eli Zaretskii <eliz@gnu.org>
parents: 16872
diff changeset
4799 int inbak, outbak, errbak;
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4800 int x, y;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4801 Lisp_Object cmd;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4802
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4803 /* Get current directory as MSDOS cwd is not per-process. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4804 getwd (oldwd);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4805
16310
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4806 /* 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
4807 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
4808 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
4809 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
4810 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
4811 {
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4812 *pl = *pa++;
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4813 if (*pl >= 'A' && *pl <= 'Z')
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4814 *pl += 'a' - 'A';
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4815 }
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4816 *pl = '\0';
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4817
c987c025d448 (run_msdos_command): When testing whether a shell
Richard M. Stallman <rms@gnu.org>
parents: 16210
diff changeset
4818 cmd = Ffile_name_nondirectory (build_string (lowcase_argv0));
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4819 msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells"))))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4820 && !strcmp ("-c", argv[1]);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4821 if (msshell)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4822 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4823 saveargv1 = argv[1];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4824 saveargv2 = argv[2];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4825 argv[1] = "/c";
30529
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4826 /* 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
4827 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
4828 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
4829 if (argv[2] && argv[3])
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4830 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4831 char *p = alloca (strlen (argv[2]) + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4832
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4833 strcpy (argv[2] = p, saveargv2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4834 while (*p && isspace (*p))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4835 p++;
30529
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4836 while (*p)
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4837 {
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4838 if (*p == '/')
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4839 *p++ = '\\';
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4840 else
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4841 p++;
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4842 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4843 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4844 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4845
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4846 chdir (working_dir);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4847 inbak = dup (0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4848 outbak = dup (1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4849 errbak = dup (2);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4850 if (inbak < 0 || outbak < 0 || errbak < 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4851 goto done; /* Allocation might fail due to lack of descriptors. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4852
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4853 if (have_mouse > 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4854 mouse_get_xy (&x, &y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4855
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4856 dos_ttcooked (); /* do it here while 0 = stdin */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4857
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4858 dup2 (tempin, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4859 dup2 (tempout, 1);
13718
e1b33f87545f (run_msdos_command): Support redirection of stderr.
Karl Heuer <kwzh@gnu.org>
parents: 13717
diff changeset
4860 dup2 (temperr, 2);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4861
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4862 #if __DJGPP__ > 1
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4863
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4864 if (msshell && !argv[3])
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4865 {
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4866 /* 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
4867 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
4868 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
4869
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4870 const char *cmnd;
15125
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4871
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4872 /* 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
4873 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
4874
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4875 /* 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
4876 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
4877 which will hang Emacs. */
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4878 for (cmnd = saveargv2; *cmnd && isspace (*cmnd); cmnd++)
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4879 ;
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4880 if (*cmnd)
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4881 {
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4882 extern char **environ;
30529
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4883 char **save_env = environ;
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4884 int save_system_flags = __system_flags;
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4885
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4886 /* 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
4887 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
4888 __system_flags = (__system_redirect
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4889 | __system_use_shell
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4890 | __system_allow_multiple_cmds
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4891 | __system_allow_long_cmds
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4892 | __system_handle_null_commands
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4893 | __system_emulate_chdir);
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4894
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4895 environ = envv;
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4896 result = system (cmnd);
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4897 __system_flags = save_system_flags;
30529
788ce16426e3 (run_msdos_command): Save and restore the master
Eli Zaretskii <eliz@gnu.org>
parents: 30381
diff changeset
4898 environ = save_env;
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4899 }
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4900 else
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
4901 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
4902 }
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4903 else
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4904
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4905 #endif /* __DJGPP__ > 1 */
4dc406e38d68 (dos_get_modifiers): Restore missing comment terminator.
Richard M. Stallman <rms@gnu.org>
parents: 15096
diff changeset
4906
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4907 result = spawnve (P_WAIT, argv[0], argv, envv);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4908
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4909 dup2 (inbak, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4910 dup2 (outbak, 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4911 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
4912 emacs_close (inbak);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25214
diff changeset
4913 emacs_close (outbak);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25214
diff changeset
4914 emacs_close (errbak);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4915
13274
712386e1abe0 Whitespace changes.
Richard M. Stallman <rms@gnu.org>
parents: 13179
diff changeset
4916 dos_ttraw ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4917 if (have_mouse > 0)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4918 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4919 mouse_init ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4920 mouse_moveto (x, y);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4921 }
16837
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
4922
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
4923 /* 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
4924 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
4925 bright background colors. Restore that. */
7370bcad5cb1 (bright_bg): Save the original state of video blink bit.
Richard M. Stallman <rms@gnu.org>
parents: 16763
diff changeset
4926 bright_bg ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4927
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4928 done:
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4929 chdir (oldwd);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4930 if (msshell)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4931 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4932 argv[1] = saveargv1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4933 argv[2] = saveargv2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4934 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4935 return result;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4936 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4937
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4938 croak (badfunc)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4939 char *badfunc;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4940 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4941 fprintf (stderr, "%s not yet implemented\r\n", badfunc);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4942 reset_sys_modes ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4943 exit (1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4944 }
13848
5f38596d591e (have_menus_p): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 13744
diff changeset
4945
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4946 #if __DJGPP__ < 2
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
4947
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4948 /* ------------------------- Compatibility functions -------------------
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4949 * gethostname
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4950 * gettimeofday
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4951 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4952
14413
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
4953 /* Hostnames for a pc are not really funny,
77ed54321a41 (dos_rawgetc): Allow simulation of `Mouse-3' by
Richard M. Stallman <rms@gnu.org>
parents: 14284
diff changeset
4954 but they are used in change log so we emulate the best we can. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4955
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4956 gethostname (p, size)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4957 char *p;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4958 int size;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4959 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4960 char *q = egetenv ("HOSTNAME");
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4961
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4962 if (!q) q = "pc";
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4963 strcpy (p, q);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4964 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4965 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4966
13394
c4549fcdd5f3 (the_only_x_display): Type is now struct x_output.
Karl Heuer <kwzh@gnu.org>
parents: 13305
diff changeset
4967 /* When time zones are set from Ms-Dos too many C-libraries are playing
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4968 tricks with time values. We solve this by defining our own version
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4969 of `gettimeofday' bypassing GO32. Our version needs to be initialized
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4970 once and after each call to `tzset' with TZ changed. That is
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4971 accomplished by aliasing tzset to init_gettimeofday. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4972
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4973 static struct tm time_rec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4974
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4975 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4976 gettimeofday (struct timeval *tp, struct timezone *tzp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4977 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4978 if (tp)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4979 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4980 struct time t;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4981 struct tm tm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4982
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4983 gettime (&t);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4984 if (t.ti_hour < time_rec.tm_hour) /* midnight wrap */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4985 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4986 struct date d;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4987 getdate (&d);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4988 time_rec.tm_year = d.da_year - 1900;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4989 time_rec.tm_mon = d.da_mon - 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4990 time_rec.tm_mday = d.da_day;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4991 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4992
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4993 time_rec.tm_hour = t.ti_hour;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4994 time_rec.tm_min = t.ti_min;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4995 time_rec.tm_sec = t.ti_sec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4996
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4997 tm = time_rec;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4998 tm.tm_gmtoff = dos_timezone_offset;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
4999
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5000 tp->tv_sec = mktime (&tm); /* may modify tm */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5001 tp->tv_usec = t.ti_hund * (1000000 / 100);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5002 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5003 /* Ignore tzp; it's obsolescent. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5004 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5005 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5006
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
5007 #endif /* __DJGPP__ < 2 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5008
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5009 /*
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5010 * A list of unimplemented functions that we silently ignore.
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5011 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5012
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
5013 #if __DJGPP__ < 2
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5014 unsigned alarm (s) unsigned s; {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5015 fork () { return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5016 int kill (x, y) int x, y; { return -1; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5017 nice (p) int p; {}
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5018 void volatile pause () {}
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
5019 sigsetmask (x) int x; { return 0; }
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5020 sigblock (mask) int mask; { return 0; }
14974
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
5021 #endif
b99490300747 [MSDOS]: If DJGPP version 2, include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents: 14783
diff changeset
5022
21415
e6d49d55ea7e (request_sigio, unrequest_sigio): Make consistent with
Karl Heuer <kwzh@gnu.org>
parents: 20240
diff changeset
5023 void request_sigio (void) {}
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5024 setpgrp () {return 0; }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5025 setpriority (x,y,z) int x,y,z; { return 0; }
21415
e6d49d55ea7e (request_sigio, unrequest_sigio): Make consistent with
Karl Heuer <kwzh@gnu.org>
parents: 20240
diff changeset
5026 void unrequest_sigio (void) {}
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5027
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5028 #if __DJGPP__ > 1
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5029
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5030 #ifdef POSIX_SIGNALS
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5031
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5032 /* 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
5033 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
5034
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5035 #include <libc/bss.h>
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5036
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5037 /* 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
5038 static int sigprocmask_count = -1;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5039
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5040 /* Which signals are currently blocked (initially none). */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5041 static sigset_t current_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5042
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5043 /* Which signals are pending (initially none). */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5044 static sigset_t pending_signals;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5045
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5046 /* 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
5047 typedef void (*sighandler_t)(int);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5048 static sighandler_t prev_handlers[320];
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5049
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5050 /* A signal handler which just records that a signal occured
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5051 (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
5052 static void
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5053 sig_suspender (signo)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5054 int signo;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5055 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5056 sigaddset (&pending_signals, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5057 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5058
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5059 int
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5060 sigprocmask (how, new_set, old_set)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5061 int how;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5062 const sigset_t *new_set;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5063 sigset_t *old_set;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5064 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5065 int signo;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5066 sigset_t new_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5067
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5068 /* If called for the first time, initialize. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5069 if (sigprocmask_count != __bss_count)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5070 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5071 sigprocmask_count = __bss_count;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5072 sigemptyset (&pending_signals);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5073 sigemptyset (&current_mask);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5074 for (signo = 0; signo < 320; signo++)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5075 prev_handlers[signo] = SIG_ERR;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5076 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5077
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5078 if (old_set)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5079 *old_set = current_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5080
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5081 if (new_set == 0)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5082 return 0;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5083
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5084 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
5085 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5086 errno = EINVAL;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5087 return -1;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5088 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5089
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5090 sigemptyset (&new_mask);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5091
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5092 /* DJGPP supports upto 320 signals. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5093 for (signo = 0; signo < 320; signo++)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5094 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5095 if (sigismember (&current_mask, signo))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5096 sigaddset (&new_mask, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5097 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
5098 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5099 sigaddset (&new_mask, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5100
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5101 /* SIGKILL is silently ignored, as on other platforms. */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5102 if (signo != SIGKILL && prev_handlers[signo] == SIG_ERR)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5103 prev_handlers[signo] = signal (signo, sig_suspender);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5104 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5105 if (( how == SIG_UNBLOCK
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5106 && sigismember (&new_mask, signo)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5107 && sigismember (new_set, signo))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5108 || (how == SIG_SETMASK
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5109 && sigismember (&new_mask, signo)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5110 && !sigismember (new_set, signo)))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5111 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5112 sigdelset (&new_mask, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5113 if (prev_handlers[signo] != SIG_ERR)
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5114 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5115 signal (signo, prev_handlers[signo]);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5116 prev_handlers[signo] = SIG_ERR;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5117 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5118 if (sigismember (&pending_signals, signo))
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5119 {
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5120 sigdelset (&pending_signals, signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5121 raise (signo);
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5122 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5123 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5124 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5125 current_mask = new_mask;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5126 return 0;
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5127 }
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5128
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5129 #else /* not POSIX_SIGNALS */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5130
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5131 sigsetmask (x) int x; { return 0; }
14262
ef10a42c21f4 (sigblock): New (dummy) function.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
5132 sigblock (mask) int mask; { return 0; }
16872
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5133
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5134 #endif /* not POSIX_SIGNALS */
1efa81ac7e5a * (sigprocmask, sig_suspender): New functions, implement
Eli Zaretskii <eliz@gnu.org>
parents: 16871
diff changeset
5135 #endif /* __DJGPP__ > 1 */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5136
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5137 #ifndef HAVE_SELECT
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5138 #include "sysselect.h"
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5139
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5140 #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
5141 #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
5142 ((long)(time).tv_sec < 0 \
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5143 || ((time).tv_sec == 0 \
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5144 && (long)(time).tv_usec <= 0))
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5145 #endif
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5146
22481
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5147 /* 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
5148 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
5149 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
5150
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5151 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
5152 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
5153 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
5154
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5155 void
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5156 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
5157 {
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5158 _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
5159
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5160 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
5161 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
5162 _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
5163 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
5164 errno = ENOSYS;
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5165 }
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5166
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5167 /* Only event queue is checked. */
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
5168 /* We don't have to call timer_check here
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
5169 because wait_reading_process_input takes care of that. */
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5170 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5171 sys_select (nfds, rfds, wfds, efds, timeout)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5172 int nfds;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5173 SELECT_TYPE *rfds, *wfds, *efds;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5174 EMACS_TIME *timeout;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5175 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5176 int check_input;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5177 struct time t;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5178
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5179 check_input = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5180 if (rfds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5181 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5182 check_input = FD_ISSET (0, rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5183 FD_ZERO (rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5184 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5185 if (wfds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5186 FD_ZERO (wfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5187 if (efds)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5188 FD_ZERO (efds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5189
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5190 if (nfds != 1)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5191 abort ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5192
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5193 /* If we are looking only for the terminal, with no timeout,
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5194 just read it and wait -- that's more efficient. */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5195 if (!timeout)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5196 {
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
5197 while (!detect_input_pending ())
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
5198 {
22481
c19803db4a93 (dos_set_keyboard): Call Int 2Fh via the DPMI server, not directly.
Eli Zaretskii <eliz@gnu.org>
parents: 22054
diff changeset
5199 dos_yield_time_slice ();
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
5200 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5201 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5202 else
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5203 {
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5204 EMACS_TIME clnow, cllast, cldiff;
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5205
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
5206 gettime (&t);
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5207 EMACS_SET_SECS_USECS (cllast, t.ti_sec, t.ti_hund * 10000L);
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5208
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5209 while (!check_input || !detect_input_pending ())
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5210 {
15033
9e174c2b4ba6 (check_timer): Removed; use gettime instead.
Richard M. Stallman <rms@gnu.org>
parents: 14999
diff changeset
5211 gettime (&t);
14279
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5212 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
5213 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
5214
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5215 /* 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
5216 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
5217 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
5218 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
5219 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
5220
085bc709c11d (sys_select): Use time macros to prevent time values
Karl Heuer <kwzh@gnu.org>
parents: 14262
diff changeset
5221 /* 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
5222 if (EMACS_TIME_ZERO_OR_NEG_P (*timeout))
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5223 return 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5224 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
5225 dos_yield_time_slice ();
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5226 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5227 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5228
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5229 FD_SET (0, rfds);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5230 return 1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5231 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5232 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5233
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5234 /*
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13860
diff changeset
5235 * Define overlaid functions:
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5236 *
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5237 * chdir -> sys_chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5238 * tzset -> init_gettimeofday
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5239 * abort -> dos_abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5240 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5241
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5242 #ifdef chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5243 #undef chdir
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5244 extern int chdir ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5245
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5246 int
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5247 sys_chdir (path)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5248 const char* path;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5249 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5250 int len = strlen (path);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5251 char *tmp = (char *)path;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5252
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5253 if (*tmp && tmp[1] == ':')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5254 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5255 if (getdisk () != tolower (tmp[0]) - 'a')
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5256 setdisk (tolower (tmp[0]) - 'a');
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5257 tmp += 2; /* strip drive: KFS 1995-07-06 */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5258 len -= 2;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5259 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5260
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5261 if (len > 1 && (tmp[len - 1] == '/'))
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5262 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5263 char *tmp1 = (char *) alloca (len + 1);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5264 strcpy (tmp1, tmp);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5265 tmp1[len - 1] = 0;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5266 tmp = tmp1;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5267 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5268 return chdir (tmp);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5269 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5270 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5271
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5272 #ifdef tzset
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5273 #undef tzset
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5274 extern void tzset (void);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5275
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5276 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5277 init_gettimeofday ()
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5278 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5279 time_t ltm, gtm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5280 struct tm *lstm;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5281
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5282 tzset ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5283 ltm = gtm = time (NULL);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5284 ltm = mktime (lstm = localtime (&ltm));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5285 gtm = mktime (gmtime (&gtm));
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5286 time_rec.tm_hour = 99; /* force gettimeofday to get date */
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5287 time_rec.tm_isdst = lstm->tm_isdst;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5288 dos_timezone_offset = time_rec.tm_gmtoff = (int)(gtm - ltm) / 60;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5289 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5290 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5291
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5292 #ifdef abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5293 #undef abort
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5294 void
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5295 dos_abort (file, line)
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5296 char *file;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5297 int line;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5298 {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5299 char buffer1[200], buffer2[400];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5300 int i, j;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5301
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5302 sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5303 for (i = j = 0; buffer1[i]; i++) {
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5304 buffer2[j++] = buffer1[i];
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5305 buffer2[j++] = 0x70;
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5306 }
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5307 dosmemput (buffer2, j, (int)ScreenPrimary);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5308 ScreenSetCursor (2, 0);
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5309 abort ();
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5310 }
13744
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5311 #else
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5312 void
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5313 abort ()
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5314 {
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5315 dos_ttcooked ();
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5316 ScreenSetCursor (10, 0);
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5317 cputs ("\r\n\nEmacs aborted!\r\n");
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
5318 #if __DJGPP__ > 1
20240
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
5319 #if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
5320 if (screen_virtual_segment)
963e9cda8f04 Support for Japanese display on DOS/V systems.
Eli Zaretskii <eliz@gnu.org>
parents: 20036
diff changeset
5321 dosv_refresh_virtual_screen (2 * 10 * screen_size_X, 4 * screen_size_X);
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
5322 /* Generate traceback, so we could tell whodunit. */
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
5323 signal (SIGINT, SIG_DFL);
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
5324 __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
5325 #else /* __DJGPP_MINOR__ >= 2 */
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
5326 raise (SIGABRT);
7e59f6e590da (struct kbd_translate): New struct, for key translation
Eli Zaretskii <eliz@gnu.org>
parents: 24001
diff changeset
5327 #endif /* __DJGPP_MINOR__ >= 2 */
14999
3bafb8029b86 Include signal.h.
Richard M. Stallman <rms@gnu.org>
parents: 14974
diff changeset
5328 #endif
13744
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5329 exit (2);
120c884de8a2 (check_timer): get rid of the DOS-specific menubar clock
Karl Heuer <kwzh@gnu.org>
parents: 13718
diff changeset
5330 }
13179
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5331 #endif
b0de215331ba [!HAVE_X_WINDOWS]:
Kim F. Storm <storm@cua.dk>
parents: 13040
diff changeset
5332
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26088
diff changeset
5333 /* 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
5334 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
5335 #ifndef subprocesses
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
5336 /* 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
5337 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
5338 #endif
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
5339
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
5340 syms_of_msdos ()
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
5341 {
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
5342 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
5343 staticpro (&recent_doskeys);
19334
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
5344 #ifndef HAVE_X_WINDOWS
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
5345 help_echo = Qnil;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
5346 staticpro (&help_echo);
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
5347 help_echo_object = Qnil;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
5348 staticpro (&help_echo_object);
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
5349 help_echo_window = Qnil;
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
5350 staticpro (&help_echo_window);
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
5351 previous_help_echo = Qnil;
27019
3956e87adf2d Changes for supporting mouse/modeline highlight and help echo features:
Eli Zaretskii <eliz@gnu.org>
parents: 26946
diff changeset
5352 staticpro (&previous_help_echo);
30341
2ad638704621 (IT_note_mode_line_highlight, IT_note_mouse_highlight):
Eli Zaretskii <eliz@gnu.org>
parents: 30198
diff changeset
5353 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
5354
32271
4ff70fe0d99b (top-level) <Qbackground_color, Qforeground_color>: Make
Eli Zaretskii <eliz@gnu.org>
parents: 30840
diff changeset
5355 /* 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
5356 Qbar = intern ("bar");
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
5357 staticpro (&Qbar);
44695
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
5358 Qhbar = intern ("hbar");
7a20e252e50a (Qhbar): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 44528
diff changeset
5359 staticpro (&Qhbar);
28092
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
5360 Qcursor_type = intern ("cursor-type");
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
5361 staticpro (&Qcursor_type);
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
5362 Qreverse = intern ("reverse");
ce3bf4da00a9 (vga_installed): New function, code moved from
Eli Zaretskii <eliz@gnu.org>
parents: 28008
diff changeset
5363 staticpro (&Qreverse);
23825
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
5364
085b163b6115 (Vdos_unsupported_char_glyph): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 23815
diff changeset
5365 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
5366 doc: /* *Glyph to display instead of chars not supported by current codepage.
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
5367
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
5368 This variable is used only by MSDOS terminals. */);
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
5369 Vdos_unsupported_char_glyph = '\177';
43357
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
5370
44359
ff9f7aee02c8 Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents: 44337
diff changeset
5371 DEFVAR_BOOL ("mouse-autoselect-window", &mouse_autoselect_window,
43357
c89a11a2baf6 (x_autoselect_window_p): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 43236
diff changeset
5372 doc: /* *Non-nil means autoselect window with mouse pointer. */);
44364
e1395edc427d (syms_of_msdos): Fix last change with mouse_autoselect_window.
Eli Zaretskii <eliz@gnu.org>
parents: 44359
diff changeset
5373 mouse_autoselect_window = 0;
19334
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
5374 #endif
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
5375 #ifndef subprocesses
c7cec07cb0e0 (syms_of_msdos): Define and bind x-bitmap-file-path and
Eli Zaretskii <eliz@gnu.org>
parents: 19295
diff changeset
5376 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
5377 doc: /* *Non-nil means delete processes immediately when they exit.
63819c5d6049 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 41406
diff changeset
5378 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
5379 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
5380 #endif
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
5381
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
5382 defsubr (&Srecent_doskeys);
15186
242bddc25e5a (syms_of_msdos): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 15174
diff changeset
5383 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
5384 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
5385 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
5386 defsubr (&Smsdos_set_mouse_buttons);
13305
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
5387 }
63a43c4b29b2 (IT_ring_bell): Use intdos, not write.
Richard M. Stallman <rms@gnu.org>
parents: 13274
diff changeset
5388
5503
003e84b91d21 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5389 #endif /* MSDOS */
21693
fc0153e88b71 (run_msdos_command): Don't construct process
Eli Zaretskii <eliz@gnu.org>
parents: 21583
diff changeset
5390