aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/keymap.c b/src/keymap.c
index 00eefb375ef..c43d528b25b 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -611,7 +611,8 @@ map_keymap_internal (Lisp_Object map,
611 } 611 }
612 else if (CHAR_TABLE_P (binding)) 612 else if (CHAR_TABLE_P (binding))
613 map_char_table (map_keymap_char_table_item, Qnil, binding, 613 map_char_table (map_keymap_char_table_item, Qnil, binding,
614 make_save_value ("ppo", fun, data, args)); 614 make_save_value (SAVE_TYPE_PTR_PTR_OBJ,
615 fun, data, args));
615 } 616 }
616 UNGCPRO; 617 UNGCPRO;
617 return tail; 618 return tail;
@@ -1555,8 +1556,8 @@ like in the respective argument of `key-binding'. */)
1555 window = POSN_WINDOW (position); 1556 window = POSN_WINDOW (position);
1556 1557
1557 if (WINDOWP (window) 1558 if (WINDOWP (window)
1558 && BUFFERP (XWINDOW (window)->buffer) 1559 && BUFFERP (XWINDOW (window)->contents)
1559 && XBUFFER (XWINDOW (window)->buffer) != current_buffer) 1560 && XBUFFER (XWINDOW (window)->contents) != current_buffer)
1560 { 1561 {
1561 /* Arrange to go back to the original buffer once we're done 1562 /* Arrange to go back to the original buffer once we're done
1562 processing the key sequence. We don't use 1563 processing the key sequence. We don't use
@@ -1566,7 +1567,7 @@ like in the respective argument of `key-binding'. */)
1566 things the same. 1567 things the same.
1567 */ 1568 */
1568 record_unwind_current_buffer (); 1569 record_unwind_current_buffer ();
1569 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); 1570 set_buffer_internal (XBUFFER (XWINDOW (window)->contents));
1570 } 1571 }
1571 } 1572 }
1572 1573