# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1174328996 0
# Node ID a9fa8e107bbcf0b20c161bf151489d26f108a2dd
# Parent  57d392645f5461a5b12f2a84c00237849ced93cc
Revert 2006-12-08 change by Kevin Rodgers due to lack of legal papers.

diff -r 57d392645f54 -r a9fa8e107bbc lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Mar 19 18:28:31 2007 +0000
+++ b/lisp/ChangeLog	Mon Mar 19 18:29:56 2007 +0000
@@ -2471,12 +2471,6 @@
 
 	* comint.el (comint-insert-input): Delete obsolete comment.
 
-2006-12-08  Kevin Rodgers  <ihs_4664@yahoo.com>
-
-	* files.el (insert-file-1): Compare file size to
-	large-file-warning-threshold and request confirmation when
-	warranted.
-
 2006-12-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* net/browse-url.el (browse-url): Set DISPLAY to the one of the
diff -r 57d392645f54 -r a9fa8e107bbc lisp/files.el
--- a/lisp/files.el	Mon Mar 19 18:28:31 2007 +0000
+++ b/lisp/files.el	Mon Mar 19 18:29:56 2007 +0000
@@ -1700,16 +1700,6 @@
   (if (file-directory-p filename)
       (signal 'file-error (list "Opening input file" "file is a directory"
                                 filename)))
-  ;; Check whether the file is uncommonly large (see find-file-noselect):
-  (let (size)
-    (when (and large-file-warning-threshold
-	       (setq size (nth 7 (file-attributes filename)))
-	       (> size large-file-warning-threshold)
-	       (not (y-or-n-p
-		     (format "File %s is large (%dMB), really insert? "
-			     (file-name-nondirectory filename)
-			     (/ size 1048576)))))
-      (error "Aborted")))
   (let* ((buffer (find-buffer-visiting (abbreviate-file-name (file-truename filename))
                                        #'buffer-modified-p))
          (tem (funcall insert-func filename)))