sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-10-30 22:53:37 +00:00
Code Issues Releases Wiki Activity

Fix `vlfi-if-file-too-large' to be more tolerable on GNU Emacs 23.

Browse Source
This commit is contained in:
Andrey Kotlarski
2013-04-11 18:36:39 +03:00
parent a3c405fd37
commit 7985f0f453
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
vlfi.el
View File

@@ -264,9 +264,12 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(while (not (memq (setq char (while (not (memq (setq char
(read-event (read-event
(propertize (propertize
(format "File %s is large (%s): \ (format
"File %s is large (%s): \
%s normally (o), %s with vlfi (v) or abort (a)" %s normally (o), %s with vlfi (v) or abort (a)"
(if filename
(file-name-nondirectory filename) (file-name-nondirectory filename)
"")
(file-size-human-readable size) (file-size-human-readable size)
op-type op-type) op-type op-type)
'face 'minibuffer-prompt))) 'face 'minibuffer-prompt)))