aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJim Blandy1992-02-21 05:39:59 +0000
committerJim Blandy1992-02-21 05:39:59 +0000
commit3a2712f9beddf3de18504c4a1b857d3ce2b95391 (patch)
treee74945d36861016476838afef0ca92d0b55a64d2 /src
parenta41f8bed219bb3f7f4aa438e60532d2789dfb067 (diff)
downloademacs-3a2712f9beddf3de18504c4a1b857d3ce2b95391.tar.gz
emacs-3a2712f9beddf3de18504c4a1b857d3ce2b95391.zip
*** empty log message ***
Diffstat (limited to 'src')
-rw-r--r--src/window.c3
-rw-r--r--src/xterm.c22
2 files changed, 13 insertions, 12 deletions
diff --git a/src/window.c b/src/window.c
index f81e7481c03..d53bd510c63 100644
--- a/src/window.c
+++ b/src/window.c
@@ -590,8 +590,7 @@ window_display_table (w)
590 return 0; 590 return 0;
591} 591}
592 592
593DEFUN ("set-window-display-table", 593DEFUN ("set-window-display-table", Fset_window_display_table, Sset_window_display_table, 2, 2, 0,
594 Fset_window_display_table, Sset_window_display_table, 2, 2, 0,
595 "Set WINDOW's display-table to TABLE.") 594 "Set WINDOW's display-table to TABLE.")
596 (window, table) 595 (window, table)
597 register Lisp_Object window, table; 596 register Lisp_Object window, table;
diff --git a/src/xterm.c b/src/xterm.c
index 0f8da850112..05ad3bc588d 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -65,13 +65,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
65#endif 65#endif
66#endif 66#endif
67 67
68#ifdef NEED_TIME_H 68#include "systime.h"
69#include <time.h>
70#else /* not NEED_TIME_H */
71#ifdef HAVE_TIMEVAL
72#include <sys/time.h>
73#endif /* HAVE_TIMEVAL */
74#endif /* not NEED_TIME_H */
75 69
76#include <fcntl.h> 70#include <fcntl.h>
77#include <stdio.h> 71#include <stdio.h>
@@ -1915,6 +1909,14 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
1915 KeySym keysym; 1909 KeySym keysym;
1916 XComposeStatus status; 1910 XComposeStatus status;
1917 char copy_buffer[80]; 1911 char copy_buffer[80];
1912 int modifiers = event.xkey.state;
1913
1914 /* Some keyboards generate different characters
1915 depending on the state of the meta key, in an attempt
1916 to support non-English typists. It would be nice to
1917 keep this functionality somehow, but for now, we will
1918 just clear the meta-key flag to get the 'pure' character. */
1919 event.xkey.state &= ~Mod1Mask;
1918 1920
1919 /* This will have to go some day... */ 1921 /* This will have to go some day... */
1920 nbytes = XLookupString (&event.xkey, 1922 nbytes = XLookupString (&event.xkey,
@@ -1938,7 +1940,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
1938 bufp->kind = non_ascii_keystroke; 1940 bufp->kind = non_ascii_keystroke;
1939 XSET (bufp->code, Lisp_Int, (unsigned) keysym - 0xff50); 1941 XSET (bufp->code, Lisp_Int, (unsigned) keysym - 0xff50);
1940 bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); 1942 bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s));
1941 bufp->modifiers = x_convert_modifiers (event.xkey.state); 1943 bufp->modifiers = x_convert_modifiers (modifiers);
1942 XSET (bufp->timestamp, Lisp_Int, event.xkey.time); 1944 XSET (bufp->timestamp, Lisp_Int, event.xkey.time);
1943 bufp++; 1945 bufp++;
1944 count++; 1946 count++;
@@ -1950,7 +1952,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
1950 1952
1951 if (nbytes == 1) 1953 if (nbytes == 1)
1952 { 1954 {
1953 if (event.xkey.state & Mod1Mask) 1955 if (modifiers & Mod1Mask)
1954 *copy_buffer |= METABIT; 1956 *copy_buffer |= METABIT;
1955 bufp->kind = ascii_keystroke; 1957 bufp->kind = ascii_keystroke;
1956 bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s)); 1958 bufp->screen = XSCREEN (SCREEN_FOCUS_SCREEN (s));
@@ -2301,7 +2303,7 @@ XTread_socket (sd, bufp, numchars, waitp, expected)
2301 int mask = 1 << fd; 2303 int mask = 1 << fd;
2302 2304
2303 if (0 != select (fd + 1, &mask, (long *) 0, (long *) 0, 2305 if (0 != select (fd + 1, &mask, (long *) 0, (long *) 0,
2304 (struct timeval *) 0) 2306 (EMACS_TIME) 0)
2305 && !XStuffPending ()) 2307 && !XStuffPending ())
2306 kill (getpid (), SIGHUP); 2308 kill (getpid (), SIGHUP);
2307 } 2309 }