From 7985f0f453f4a830984146d00a20f1b5aea79878 Mon Sep 17 00:00:00 2001 From: Andrey Kotlarski Date: Thu, 11 Apr 2013 18:36:39 +0300 Subject: [PATCH] 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)))