[elpa] externals/vlf 7985f0f 052/310: Fix `vlfi-if-file-too-large' to be more tolerable on GNU Emacs 23.

[Stefan Monnier]

branch: externals/vlf
commit 7985f0f453f4a830984146d00a20f1b5aea79878
Author: Andrey Kotlarski <m00naticus@gmail.com>
Commit: Andrey Kotlarski <m00naticus@gmail.com>

    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)))