(decode-coding-inserted-region): Don't

barf if `buffer-undo-list' is already set to `t'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 206063923b075c849496a7ca9d4b284a00f1af1e..fb0c46c9a6195e75f2f783480484147d1c386b14 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-29  David Kastrup  <dak@gnu.org>
+
+       * international/mule.el (decode-coding-inserted-region): Don't
+       barf if `buffer-undo-list' is already set to `t'.
+
 2004-12-29  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc-prog.el (calc-user-define-formula): Put default values

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index ea227ea7e9f387fb03f6eefe603d035f5a7d2c3f..3a8560f29fba28ab584550151f28097963d8a2ef 100644 (file)
--- 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))))