Mercurial > emacs
comparison src/undo.c @ 76800:3f97b6926170
(Fprimitive_undo): Give clearer error message when trying to change
text properties outside accessible part of buffer.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 30 Mar 2007 02:04:27 +0000 |
| parents | e90d04cd455a |
| children | 922696f363b0 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 76799:60292a8c7998 | 76800:3f97b6926170 |
|---|---|
| 546 val = Fcar (cdr); | 546 val = Fcar (cdr); |
| 547 cdr = Fcdr (cdr); | 547 cdr = Fcdr (cdr); |
| 548 beg = Fcar (cdr); | 548 beg = Fcar (cdr); |
| 549 end = Fcdr (cdr); | 549 end = Fcdr (cdr); |
| 550 | 550 |
| 551 if (XINT (beg) < BEGV || XINT (end) > ZV) | |
| 552 error ("Changes to be undone are outside visible portion of buffer"); | |
| 551 Fput_text_property (beg, end, prop, val, Qnil); | 553 Fput_text_property (beg, end, prop, val, Qnil); |
| 552 } | 554 } |
| 553 else if (INTEGERP (car) && INTEGERP (cdr)) | 555 else if (INTEGERP (car) && INTEGERP (cdr)) |
| 554 { | 556 { |
| 555 /* Element (BEG . END) means range was inserted. */ | 557 /* Element (BEG . END) means range was inserted. */ |