From 54c5ba1a5f83296e02a108c259de6342361a5c7f Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Thu, 14 Jun 2012 15:55:28 -0400 Subject: [PATCH] * lisp/files.el (abort-if-file-too-large): Use `file-size-human-readable'. --- lisp/ChangeLog | 4 ++++ lisp/files.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bdc04a789b5..cbf271fb924 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-06-14 Sam Steingold + + * files.el (abort-if-file-too-large): Use `file-size-human-readable'. + 2012-06-14 Andreas Schwab * play/doctor.el (doctor-doc): Remove parameter and use diff --git a/lisp/files.el b/lisp/files.el index a934eca4527..b1f6fe6e4c6 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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) -- 2.39.5