sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-02-12 07:58:09 +00:00
Code Issues Releases Wiki Activity

Add lexical-bind declaration.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-01-13 15:45:55 +02:00
parent e43725e8d4
commit 59d5d2c487
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
vlf.el
View File

@ -1,4 +1,5 @@
;;; vlf.el --- View Large Files ;;; vlf.el --- View Large Files
;;; -*- lexical-bind: t -*-
;; Copyright (C) 2006, 2012, 2013 Free Software Foundation, Inc. ;; Copyright (C) 2006, 2012, 2013 Free Software Foundation, Inc.
@ -192,8 +193,8 @@ With FROM-END prefix, view from the back."
"If file SIZE larger than `large-file-warning-threshold', \ "If file SIZE larger than `large-file-warning-threshold', \
allow user to view file with `vlf', open it normally or abort. allow user to view file with `vlf', open it normally or abort.
OP-TYPE specifies the file operation being performed over FILENAME." OP-TYPE specifies the file operation being performed over FILENAME."
(when (and large-file-warning-threshold size (and large-file-warning-threshold size
(> size large-file-warning-threshold)) (> size large-file-warning-threshold)
(let ((char nil)) (let ((char nil))
(while (not (memq (setq char (while (not (memq (setq char
(read-event (read-event