# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104163931 0
# Node ID 803b2fab7ec15a5506ff0a4292e7fe4f99f8c272
# Parent  a3caa12a673aa6ff7aad051689d80ca72de7961b
(decode-coding-inserted-region):
Set buffer-undo-list in a correct and optimal way.

diff -r a3caa12a673a -r 803b2fab7ec1 lisp/international/mule.el
--- a/lisp/international/mule.el	Mon Dec 27 16:11:33 2004 +0000
+++ b/lisp/international/mule.el	Mon Dec 27 16:12:11 2004 +0000
@@ -1878,13 +1878,27 @@
 (defun decode-coding-inserted-region (from to filename
 					   &optional visit beg end replace)
   "Decode the region between FROM and TO as if it is read from file FILENAME.
+The idea is that the text between FROM and TO was just inserted somehow.
 Optional arguments VISIT, BEG, END, and REPLACE are the same as those
-of the function `insert-file-contents'."
+of the function `insert-file-contents'.
+Part of the job of this function is setting `buffer-undo-list' appropriately."
   (save-excursion
     (save-restriction
-      (narrow-to-region from to)
-      (goto-char (point-min))
-      (let ((coding coding-system-for-read))
+      (let ((coding coding-system-for-read)
+	    undo-list-saved)
+	(if visit
+	    ;; Temporarily turn off undo recording, if we're decoding the
+	    ;; text of a visited file.
+	    (setq buffer-undo-list t)
+	  ;; 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))) 
+	    (if (and (consp last) (eql (car last) from) (eql (cdr last) to))
+		(setq undo-list-saved (cdr buffer-undo-list)
+		      buffer-undo-list t))))
+	(narrow-to-region from to)
+	(goto-char (point-min))
 	(or coding
 	    (setq coding (funcall set-auto-coding-function
 				  filename (- (point-max) (point-min)))))
@@ -1899,7 +1913,16 @@
 	  (setq coding nil))
 	(if coding
 	    (decode-coding-region (point-min) (point-max) coding)
-	  (setq last-coding-system-used coding))))))
+	  (setq last-coding-system-used coding))
+	;; If we're decoding the text of a visited file,
+	;; the undo list should start out empty.
+	(if visit
+	    (setq buffer-undo-list nil)
+	  ;; If we decided to replace the undo entry for the insertion,
+	  ;; do so now.
+	  (if undo-list-saved
+	      (setq buffer-undo-list
+		    (cons (cons from (point-max)) undo-list-saved))))))))
 
 (defun make-translation-table (&rest args)
   "Make a translation table from arguments.