# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1012693600 0
# Node ID c9baf4b00820113d5b4a597f4c51530fd5f60e19
# Parent  6a9c037fa34abd5c0acb465f18cca9cb114be183
(term_get_fkeys_1): If `k0' and `k;' are both specified and
with the same sequence, map that sequence to f10 rather than f0.

diff -r 6a9c037fa34a -r c9baf4b00820 src/term.c
--- a/src/term.c	Sat Feb 02 23:05:59 2002 +0000
+++ b/src/term.c	Sat Feb 02 23:46:40 2002 +0000
@@ -1513,12 +1513,15 @@
 
     if (k_semi)
       {
+	if (k0)
+	  /* Define f0 first, so that f10 takes precedence in case the
+	     key sequences happens to be the same.  */
+	  Fdefine_key (Vfunction_key_map, build_string (k0),
+		       Fmake_vector (make_number (1), intern ("f0")));
 	Fdefine_key (Vfunction_key_map, build_string (k_semi),
 		     Fmake_vector (make_number (1), intern ("f10")));
-	k0_name = "f0";
       }
-
-    if (k0)
+    else if (k0)
       Fdefine_key (Vfunction_key_map, build_string (k0),
 		   Fmake_vector (make_number (1), intern (k0_name)));
   }