diff options
| author | Ken Raeburn | 2000-10-27 23:01:20 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2000-10-27 23:01:20 +0000 |
| commit | ae0b9b4690a0bcff233659d3892797b1743a99fd (patch) | |
| tree | 55ec4fa3c4de9daba89b41efc84e2bc2febe24a7 /src/keymap.c | |
| parent | caf9deeeedd3bca01fb7aac07c0ac4d95c6292dc (diff) | |
| download | emacs-ae0b9b4690a0bcff233659d3892797b1743a99fd.tar.gz emacs-ae0b9b4690a0bcff233659d3892797b1743a99fd.zip | |
* undo.c (record_delete): Check that last_undo_buffer is really a buffer before
applying XBUFFER to it.
* keymap.c (where_is_internal): Pass lisp object, not integer, to Faref.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/keymap.c b/src/keymap.c index ccb39da186f..c24bb66b625 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -2108,7 +2108,7 @@ where_is_internal (definition, keymaps, firstonly, noindirect) | |||
| 2108 | if (nomenus && XINT (last) >= 0) | 2108 | if (nomenus && XINT (last) >= 0) |
| 2109 | { /* If no menu entries should be returned, skip over the | 2109 | { /* If no menu entries should be returned, skip over the |
| 2110 | keymaps bound to `menu-bar' and `tool-bar'. */ | 2110 | keymaps bound to `menu-bar' and `tool-bar'. */ |
| 2111 | Lisp_Object tem = Faref (this, 0); | 2111 | Lisp_Object tem = Faref (this, make_number (0)); |
| 2112 | if (EQ (tem, Qmenu_bar) || EQ (tem, Qtool_bar)) | 2112 | if (EQ (tem, Qmenu_bar) || EQ (tem, Qtool_bar)) |
| 2113 | continue; | 2113 | continue; |
| 2114 | } | 2114 | } |