sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-19 04:20:47 +00:00
Code Issues Releases Wiki Activity

Fix `vlfi-if-file-too-large' to be more tolerable on GNU Emacs 23.

Browse Source
This commit is contained in:
Andrey Kotlarski 2013-04-11 18:36:39 +03:00
parent a3c405fd37
commit 7985f0f453
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
vlfi.el
View File

@ -264,11 +264,14 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(while (not (memq (setq char (while (not (memq (setq char
(read-event (read-event
(propertize (propertize
(format "File %s is large (%s): \ (format
"File %s is large (%s): \
%s normally (o), %s with vlfi (v) or abort (a)" %s normally (o), %s with vlfi (v) or abort (a)"
(file-name-nondirectory filename) (if filename
(file-size-human-readable size) (file-name-nondirectory filename)
op-type op-type) "")
(file-size-human-readable size)
op-type op-type)
'face 'minibuffer-prompt))) 'face 'minibuffer-prompt)))
'(?o ?O ?v ?V ?a ?A)))) '(?o ?O ?v ?V ?a ?A))))
(cond ((memq char '(?o ?O))) (cond ((memq char '(?o ?O)))