From f4b483aa362dcb2b1ebc821eec258022bc4d6fa3 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 29 Dec 2004 10:06:44 +0000 Subject: [PATCH] (decode-coding-inserted-region): Don't barf if `buffer-undo-list' is already set to `t'. --- lisp/ChangeLog | 5 +++++ lisp/international/mule.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 206063923b0..fb0c46c9a61 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-29 David Kastrup + + * international/mule.el (decode-coding-inserted-region): Don't + barf if `buffer-undo-list' is already set to `t'. + 2004-12-29 Jay Belanger * calc/calc-prog.el (calc-user-define-formula): Put default values diff --git a/lisp/international/mule.el b/lisp/international/mule.el index ea227ea7e9f..3a8560f29fb 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1893,7 +1893,7 @@ Part of the job of this function is setting `buffer-undo-list' appropriately." ;; Otherwise, if we can recognize the undo elt for the insertion, ;; remove it and get ready to replace it later. ;; In the mean time, turn off undo recording. - (let ((last (car buffer-undo-list))) + (let ((last (car-safe buffer-undo-list))) (if (and (consp last) (eql (car last) from) (eql (cdr last) to)) (setq undo-list-saved (cdr buffer-undo-list) buffer-undo-list t)))) -- 2.11.4.GIT