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/undo.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/undo.c')
| -rw-r--r-- | src/undo.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/undo.c b/src/undo.c index e2e4749c6a3..2eedfe31ab3 100644 --- a/src/undo.c +++ b/src/undo.c | |||
| @@ -102,7 +102,8 @@ record_delete (beg, string) | |||
| 102 | if (NILP (pending_boundary)) | 102 | if (NILP (pending_boundary)) |
| 103 | pending_boundary = Fcons (Qnil, Qnil); | 103 | pending_boundary = Fcons (Qnil, Qnil); |
| 104 | 104 | ||
| 105 | if (current_buffer != XBUFFER (last_undo_buffer)) | 105 | if (BUFFERP (last_undo_buffer) |
| 106 | && current_buffer != XBUFFER (last_undo_buffer)) | ||
| 106 | Fundo_boundary (); | 107 | Fundo_boundary (); |
| 107 | XSETBUFFER (last_undo_buffer, current_buffer); | 108 | XSETBUFFER (last_undo_buffer, current_buffer); |
| 108 | 109 | ||