# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1139689849 0
# Node ID 4ac434def21f122bf06a6c68f58b2c2abb39b2d3
# Parent  dfe0dd7deb3544a7f3936e82d3fd9fe7518f40f6
(ido-buffer-internal): Set mark for ido-insert-buffer.
Don't use insert-buffer; do insert-buffer-substring directly.
(ido-file-internal): Set mark for ido-insert-file. Use insert-file-1.

diff -r dfe0dd7deb35 -r 4ac434def21f lisp/ido.el
--- a/lisp/ido.el	Sat Feb 11 20:30:37 2006 +0000
+++ b/lisp/ido.el	Sat Feb 11 20:30:49 2006 +0000
@@ -2022,9 +2022,10 @@
 	(if (eq method 'insert)
 	    (progn
 	      (ido-record-command 'insert-buffer buf)
-	      (with-no-warnings
-		;; we really want to run insert-buffer here
-		(insert-buffer buf)))
+	      (push-mark
+	       (save-excursion
+		 (insert-buffer-substring (get-buffer buf))
+		 (point))))
 	  (ido-visit-buffer buf method t)))
 
        ;; buffer doesn't exist
@@ -2225,9 +2226,10 @@
 	 (if ido-find-literal 'insert-file-literally 'insert-file)
 	 filename)
 	(ido-record-work-directory)
-	(if ido-find-literal
-	    (insert-file-contents-literally filename)
-	  (insert-file-contents filename)))
+	(insert-file-1 filename
+		       (if ido-find-literal
+			   #'insert-file-contents-literally
+			 #'insert-file-contents)))
 
        (filename
 	(ido-record-work-file filename)