aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJim Blandy1992-02-11 22:24:31 +0000
committerJim Blandy1992-02-11 22:24:31 +0000
commita764a7537b6af4a7248c88de5e8356be7631c1be (patch)
tree9c6fc9fc51e4b80f1660ac03564d17f1d8a0e9f0 /src
parent7a04feb0741206e4a1c3e01840bd5557d5c84af9 (diff)
downloademacs-a764a7537b6af4a7248c88de5e8356be7631c1be.tar.gz
emacs-a764a7537b6af4a7248c88de5e8356be7631c1be.zip
*** empty log message ***
Diffstat (limited to 'src')
-rw-r--r--src/keyboard.c16
1 files changed, 6 insertions, 10 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index 680654baf54..8bfc80a25f4 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -949,8 +949,6 @@ command_loop_1 ()
949 || 949 ||
950 (dp && (XTYPE (dp->contents[lose]) != Lisp_String 950 (dp && (XTYPE (dp->contents[lose]) != Lisp_String
951 || XSTRING (dp->contents[lose])->size == sizeof (GLYPH)))) 951 || XSTRING (dp->contents[lose])->size == sizeof (GLYPH))))
952 && (SCREEN_CURSOR_X (selected_screen)
953 != SCREEN_WIDTH (selected_screen) - 1)
954 && (XFASTINT (XWINDOW (selected_window)->last_modified) 952 && (XFASTINT (XWINDOW (selected_window)->last_modified)
955 >= MODIFF) 953 >= MODIFF)
956 && (XFASTINT (XWINDOW (selected_window)->last_point) 954 && (XFASTINT (XWINDOW (selected_window)->last_point)
@@ -972,7 +970,6 @@ command_loop_1 ()
972 || 970 ||
973 (dp && (XTYPE (dp->contents[lose]) != Lisp_String 971 (dp && (XTYPE (dp->contents[lose]) != Lisp_String
974 || XSTRING (dp->contents[lose])->size == sizeof (GLYPH)))) 972 || XSTRING (dp->contents[lose])->size == sizeof (GLYPH))))
975 && (SCREEN_CURSOR_X (selected_screen) != 0)
976 && (XFASTINT (XWINDOW (selected_window)->last_modified) 973 && (XFASTINT (XWINDOW (selected_window)->last_modified)
977 >= MODIFF) 974 >= MODIFF)
978 && (XFASTINT (XWINDOW (selected_window)->last_point) 975 && (XFASTINT (XWINDOW (selected_window)->last_point)
@@ -1038,8 +1035,8 @@ command_loop_1 ()
1038 Fundo_boundary (); 1035 Fundo_boundary ();
1039 Fcommand_execute (cmd, Qnil); 1036 Fcommand_execute (cmd, Qnil);
1040 1037
1041 directly_done: ;
1042 } 1038 }
1039 directly_done: ;
1043 1040
1044 /* If there is a prefix argument, 1041 /* If there is a prefix argument,
1045 1) We don't want last_command to be ``universal-argument'' 1042 1) We don't want last_command to be ``universal-argument''
@@ -2734,10 +2731,10 @@ read_key_sequence (keybuf, bufsize, prompt)
2734 { 2731 {
2735 fkey_next = 2732 fkey_next =
2736 get_keyelt (access_keymap (fkey_map, keybuf[fkey_end++])); 2733 get_keyelt (access_keymap (fkey_map, keybuf[fkey_end++]));
2737
2738 /* If keybuf[fkey_start..fkey_next] is bound in the 2734 /* If keybuf[fkey_start..fkey_next] is bound in the
2739 function key map and it's a suffix, replace it with 2735 function key map and it's a suffix of the current
2740 the binding and restart. */ 2736 sequence (i.e. fkey_next == t), replace it with
2737 the binding and restart with fkey_start at the end. */
2741 if (XTYPE (fkey_next) == Lisp_Vector 2738 if (XTYPE (fkey_next) == Lisp_Vector
2742 && fkey_end == t) 2739 && fkey_end == t)
2743 { 2740 {
@@ -2761,9 +2758,8 @@ read_key_sequence (keybuf, bufsize, prompt)
2761 2758
2762 fkey_map = get_keymap_1 (fkey_next, 0); 2759 fkey_map = get_keymap_1 (fkey_next, 0);
2763 2760
2764 /* If we no longer have a bound suffix, advance 2761 /* If we no longer have a bound suffix, try a new positions for
2765 the start of the function key suffix and continue 2762 fkey_start. */
2766 scanning from there. */
2767 if (NILP (fkey_map)) 2763 if (NILP (fkey_map))
2768 { 2764 {
2769 fkey_end = ++fkey_start; 2765 fkey_end = ++fkey_start;