(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 --git a/src/ChangeLog b/src/ChangeLog
index ca75452..1cb73d3 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-02  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * term.c (term_get_fkeys_1): If `k0' and `k;' are both specified and
+       with the same sequence, map that sequence to f10 rather than f0.
+
 2002-02-03  Andreas Schwab  <schwab@suse.de>
 
        * s/gnu-linux.h: Check for __mc68000__ instead of __m68k__, the
@@ -11,8 +16,8 @@
 
 2002-02-02  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
-       * keyboard.c (command_loop_1) [HAVE_X_WINDOWS]: Call
-       cancel_hourglass unconditionally.
+       * keyboard.c (command_loop_1) [HAVE_X_WINDOWS]:
+       Call cancel_hourglass unconditionally.
 
        * eval.c (Fsignal): Remove duplicated declaration of
        the variable `display_hourglass_p'.
@@ -34,8 +39,8 @@
 2002-01-27  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * minibuf.c (Fread_from_minibuffer, Fread_command, Fread_function)
-       (Fread_variable, Fread_buffer, minibuffer-completion-confirm): Fix
-       doc-strings.
+       (Fread_variable, Fread_buffer, minibuffer-completion-confirm):
+       Fix doc-strings.
 
 2002-01-26  Richard M. Stallman  <rms@gnu.org>
 
@@ -132,8 +137,8 @@
        the user requests it.  Use system default width when creating.
        <WM_EMACS_HIDE_CARET, WM_EMACS_SHOW_CARET>: Handle new messages.
 
-       * w32term.h (WM_EMACS_SHOW_CARET, WM_EMACS_HIDE_CARET): New
-       window messages.
+       * w32term.h (WM_EMACS_SHOW_CARET, WM_EMACS_HIDE_CARET):
+       New window messages.
 
 2002-01-20  Richard M. Stallman  <rms@gnu.org>
 
@@ -177,7 +182,7 @@
 
 2002-01-18  Richard M. Stallman  <rms@gnu.org>
 
-       * dispextern.h (WINDOW_WANTS_MODELINE_P): Check window height > 1. 
+       * dispextern.h (WINDOW_WANTS_MODELINE_P): Check window height > 1.
        (WINDOW_WANTS_HEADER_LINE_P): Check window height provides room.
 
 2002-01-17  Richard M. Stallman  <rms@gnu.org>
@@ -199,7 +204,7 @@
        is invisible.  This can happen if cursor is on top line of a
        window, and we switch to a buffer with a header line.
 
-       * w32term.c (x_erase_phys_cursor): ditto.
+       * w32term.c (x_erase_phys_cursor): Ditto.
 
 2002-01-16  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
@@ -223,8 +228,7 @@
        * lisp.h (adjust_after_replace_noundo)
        (Fupdate_coding_systems_internal): Add prototypes.
 
-       * sound.c (Fplay_sound): Initialize header_size also for :data
-        case.
+       * sound.c (Fplay_sound): Initialize header_size also for :data case.
 
 2002-01-14  Eli Zaretskii  <eliz@is.elta.co.il>
 
@@ -260,8 +264,8 @@
        * emacs.c (USAGE2): Add the new full-screen arguments.
        (standard_args): Ditto.
 
-       * xfns.c (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New
-       variables.
+       * xfns.c (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth):
+       New variables.
        (syms_of_xfns): Intern and staticpro them.
        (x_frame_parms) <"fullscreen">: New parameter.
        (x_fullscreen_move, x_set_fullscreen): New functions.
@@ -272,8 +276,8 @@
 
        * xterm.c (x_check_fullscreen, x_fullscreen_adjust): New functions.
        (XTread_socket) <Expose>: Call x_check_fullscreen.
-       <ConfigureNotify>: Don't resize to fullscreen.  Call
-       x_check_fullscreen_move, and set the want_fullscreen member of
+       <ConfigureNotify>: Don't resize to fullscreen.
+       Call x_check_fullscreen_move, and set the want_fullscreen member of
        output_data.x.
 
 2002-01-13  Jason Rumney  <jasonr@gnu.org>
@@ -290,8 +294,7 @@
 
 2002-01-13  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
-       * keyboard.c (read_key_sequence): Remove unused variable
-       `extra_maps'.
+       * keyboard.c (read_key_sequence): Remove unused variable `extra_maps'.
 
 2002-01-13  Andreas Schwab  <schwab@suse.de>
 

diff --git a/src/term.c b/src/term.c
index 48c107a..19a1afa 100644 (file)
--- a/src/term.c
+++ b/src/term.c
@@ -1513,12 +1513,15 @@ term_get_fkeys_1 ()
 
     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)));
   }