From: Glenn Morris <rgm@gnu.org>
Date: Tue, 21 Jul 2009 04:37:53 +0000 (+0000)
Subject: (abort-if-file-too-large): Explicitly pass `filename' as an argument.
X-Git-Tag: emacs-pretest-23.1.90~2094
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26ede5d3de45e331fe7c84c839087804f295c997;p=emacs.git

(abort-if-file-too-large): Explicitly pass `filename' as an argument.
(find-file-noselect, insert-file-1): Update for above change.
---

diff --git a/lisp/files.el b/lisp/files.el
index d12c770f5a5..d2109215d3e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1659,7 +1659,7 @@ When nil, never request confirmation."
   :version "22.1"
   :type '(choice integer (const :tag "Never request confirmation" nil)))
 
-(defun abort-if-file-too-large (size op-type)
+(defun abort-if-file-too-large (size op-type filename)
   "If file SIZE larger than `large-file-warning-threshold', allow user to abort.
 OP-TYPE specifies the file operation being performed (for message to user)."
   (when (and large-file-warning-threshold size
@@ -1722,7 +1722,7 @@ the various files."
 		  (setq buf other))))
 	;; Check to see if the file looks uncommonly large.
 	(when (not (or buf nowarn))
-	  (abort-if-file-too-large (nth 7 attributes) "open"))
+	  (abort-if-file-too-large (nth 7 attributes) "open" filename))
 	(if buf
 	    ;; We are using an existing buffer.
 	    (let (nonexistent)
@@ -1943,7 +1943,7 @@ This function ensures that none of these modifications will take place."
       (signal 'file-error (list "Opening input file" "file is a directory"
                                 filename)))
   ;; Check whether the file is uncommonly large
-  (abort-if-file-too-large (nth 7 (file-attributes filename)) "insert")
+  (abort-if-file-too-large (nth 7 (file-attributes filename)) "insert" filename)
   (let* ((buffer (find-buffer-visiting (abbreviate-file-name (file-truename filename))
                                        #'buffer-modified-p))
          (tem (funcall insert-func filename)))