[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108611: * lisp/files.el (abort-if-file-too-large): Use `file-size-human-readable'.

[Sam Steingold]

------------------------------------------------------------
revno: 108611
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Thu 2012-06-14 15:55:28 -0400
message:
  * lisp/files.el (abort-if-file-too-large): Use `file-size-human-readable'.
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-14 14:22:37 +0000
+++ b/lisp/ChangeLog    2012-06-14 19:55:28 +0000
@@ -1,3 +1,7 @@
+2012-06-14  Sam Steingold  <address@hidden>
+
+       * files.el (abort-if-file-too-large): Use `file-size-human-readable'.
+
 2012-06-14  Andreas Schwab  <address@hidden>
 
        * play/doctor.el (doctor-doc): Remove parameter and use

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2012-06-13 20:52:25 +0000
+++ b/lisp/files.el     2012-06-14 19:55:28 +0000
@@ -1776,9 +1776,9 @@
 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)