From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Jun 2003 00:01:42 +0000 (+0000)
Subject: (read_key_sequence): When converting upcase fn key to
X-Git-Tag: ttn-vms-21-2-B4~9592
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1871a7dc88e35e73906c68f4e50e503311dd537;p=emacs.git

(read_key_sequence): When converting upcase fn key to
downcase, update fkey and keytran so `backspace' gets translated.

(read_avail_input): Don't signal SIGHUP in batch mode.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index ad257324d89..5f747183ce6 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6718,7 +6718,12 @@ read_avail_input (expected)
 	/* ??? Is it really right to send the signal just to this process
 	   rather than to the whole process group?
 	   Perhaps on systems with FIONREAD Emacs is alone in its group.  */
-	kill (getpid (), SIGHUP);
+	{
+	  if (! noninteractive)
+	    kill (getpid (), SIGHUP);
+	  else
+	    n_to_read = 0;
+	}
       if (n_to_read == 0)
 	return 0;
       if (n_to_read > sizeof cbuf)
@@ -9421,6 +9426,8 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 
 	      keybuf[t - 1] = new_key;
 	      mock_input = max (t, mock_input);
+	      fkey.start = fkey.end = KEYMAPP (fkey.map) ? 0 : bufsize + 1;
+	      keytran.start = keytran.end = KEYMAPP (keytran.map) ? 0 : bufsize + 1;
 
 	      goto replay_sequence;
 	    }