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

Remove defadvice abort-if-file-too-large argument list so it works

Browse Source 
correctly with GNU Emacs 23.
This commit is contained in:
Andrey Kotlarski 2013-12-12 14:39:56 +02:00
parent 099adab959
commit 9ffb968793
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
vlf.el
View File

@ -210,8 +210,6 @@ You can customize number of bytes displayed by customizing
;;;###autoload ;;;###autoload
(defadvice abort-if-file-too-large (around vlf-if-file-too-large (defadvice abort-if-file-too-large (around vlf-if-file-too-large
(size op-type
&optional filename)
compile activate) compile activate)
"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.
@ -251,7 +249,6 @@ OP-TYPE specifies the file operation being performed over FILENAME."
((memq char '(?a ?A)) ((memq char '(?a ?A))
(error "Aborted")))))))) (error "Aborted"))))))))
;; scroll auto batching ;; scroll auto batching
(defadvice scroll-up (around vlf-scroll-up (defadvice scroll-up (around vlf-scroll-up
activate compile) activate compile)
@ -274,7 +271,7 @@ OP-TYPE specifies the file operation being performed over FILENAME."
(unless (fboundp 'file-size-human-readable) (unless (fboundp 'file-size-human-readable)
(defun file-size-human-readable (file-size) (defun file-size-human-readable (file-size)
"Print FILE-SIZE in MB." "Print FILE-SIZE in MB."
(format "%.1fMB" (/ file-size 1048576.0)))) (format "%.3fMB" (/ file-size 1048576.0))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; utilities ;;; utilities