Revert 2006-12-08 change by Kevin Rodgers due to lack of legal papers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b119505d032dad1aad6710d2d7ece15a475a4b24..b36dc58b38c0427852ffc558b2be692dd9997dd2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/files.el b/lisp/files.el
index cfbbff029b66db8b4e58faa89e8f1c82bb781133..50180dc6ebf47f6cff743d988c2b60da69ec15a5 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1700,16 +1700,6 @@ This function ensures that none of these modifications will take place."
   (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)))