procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/files.el (abort-if-file-too-large): Use `file-size-human-readable'.

Browse source
This commit is contained in:
Sam Steingold 2012-06-14 15:55:28 -04:00
parent f9f1b1fe74
commit 54c5ba1a5f
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

@ -1776,9 +1776,9 @@ When nil, never request confirmation."
OP-TYPE specifies the file operation being performed (for message to user)."
(when (and large-file-warning-threshold size
(> size large-file-warning-threshold)
(not (y-or-n-p (format "File %s is large (%dMB), really %s? "
(not (y-or-n-p (format "File %s is large (%s), really %s? "
(file-name-nondirectory filename)
(/ size 1048576) op-type))))
(file-size-human-readable size) op-type))))
(error "Aborted")))
(defun find-file-noselect (filename &optional nowarn rawfile wildcards)