branch: externals/vlf
commit 7985f0f453f4a830984146d00a20f1b5aea79878
Author: Andrey Kotlarski <[email protected]>
Commit: Andrey Kotlarski <[email protected]>
Fix `vlfi-if-file-too-large' to be more tolerable on GNU Emacs 23.
---
vlfi.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/vlfi.el b/vlfi.el
index 4d6f440..c429408 100644
--- a/vlfi.el
+++ b/vlfi.el
@@ -264,11 +264,14 @@ OP-TYPE specifies the file operation being performed over
FILENAME."
(while (not (memq (setq char
(read-event
(propertize
- (format "File %s is large (%s): \
+ (format
+ "File %s is large (%s): \
%s normally (o), %s with vlfi (v) or abort (a)"
- (file-name-nondirectory filename)
- (file-size-human-readable size)
- op-type op-type)
+ (if filename
+ (file-name-nondirectory filename)
+ "")
+ (file-size-human-readable size)
+ op-type op-type)
'face 'minibuffer-prompt)))
'(?o ?O ?v ?V ?a ?A))))
(cond ((memq char '(?o ?O)))
