[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108611: * lisp/files.el (abort-if-fi
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108611: * lisp/files.el (abort-if-file-too-large): Use `file-size-human-readable'. |
Date: |
Thu, 14 Jun 2012 15:55:28 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108611: * lisp/files.el (abort-if-file-too-large): Use `file-size-human-readable'.,
Sam Steingold <=