[elpa] externals/vlf 59d5d2c 008/310: Add lexical-bind declaration.

[Stefan Monnier]

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

    Add lexical-bind declaration.
---
 vlf.el | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/vlf.el b/vlf.el
index 2288a9b..4ed8ff9 100644
--- a/vlf.el
+++ b/vlf.el
@@ -1,4 +1,5 @@
 ;;; vlf.el --- View Large Files
+;;; -*- lexical-bind: t -*-
 
 ;; Copyright (C) 2006, 2012, 2013  Free Software Foundation, Inc.
 
@@ -192,24 +193,24 @@ With FROM-END prefix, view from the back."
   "If file SIZE larger than `large-file-warning-threshold', \
 allow user to view file with `vlf', open it normally or abort.
 OP-TYPE specifies the file operation being performed over FILENAME."
-  (when (and large-file-warning-threshold size
-            (> size large-file-warning-threshold))
-    (let ((char nil))
-      (while (not (memq (setq char
-                              (read-event
-                               (propertize
-                                (format "File %s is large (%s): %s normally 
(o), %s with vlf (v) or abort (a)"
-                                        (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)))
-            ((memq char '(?v ?V))
-             (vlf nil filename)
-             (error ""))
-            ((memq char '(?a ?A))
-             (error "Aborted"))))))
+  (and large-file-warning-threshold size
+       (> size large-file-warning-threshold)
+       (let ((char nil))
+         (while (not (memq (setq char
+                                 (read-event
+                                  (propertize
+                                   (format "File %s is large (%s): %s normally 
(o), %s with vlf (v) or abort (a)"
+                                           (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)))
+               ((memq char '(?v ?V))
+                (vlf nil filename)
+                (error ""))
+               ((memq char '(?a ?A))
+                (error "Aborted"))))))
 
 ;;; hijack `abort-if-file-too-large'
 ;;;###autoload