emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vlf 9ffb968 172/310: Remove defadvice abort-if-file-too


From: Stefan Monnier
Subject: [elpa] externals/vlf 9ffb968 172/310: Remove defadvice abort-if-file-too-large argument list so it works
Date: Sat, 28 Nov 2020 00:33:09 -0500 (EST)

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

    Remove defadvice abort-if-file-too-large argument list so it works
    correctly with GNU Emacs 23.
---
 vlf.el | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/vlf.el b/vlf.el
index 2b4adc9..8ee013d 100644
--- a/vlf.el
+++ b/vlf.el
@@ -210,8 +210,6 @@ You can customize number of bytes displayed by customizing
 
 ;;;###autoload
 (defadvice abort-if-file-too-large (around vlf-if-file-too-large
-                                           (size op-type
-                                                 &optional filename)
                                            compile activate)
   "If file SIZE larger than `large-file-warning-threshold', \
 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))
                (error "Aborted"))))))))
 
-
 ;; scroll auto batching
 (defadvice scroll-up (around vlf-scroll-up
                              activate compile)
@@ -274,7 +271,7 @@ OP-TYPE specifies the file operation being performed over 
FILENAME."
 (unless (fboundp 'file-size-human-readable)
   (defun file-size-human-readable (file-size)
     "Print FILE-SIZE in MB."
-    (format "%.1fMB" (/ file-size 1048576.0))))
+    (format "%.3fMB" (/ file-size 1048576.0))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; utilities



reply via email to

[Prev in Thread] Current Thread [Next in Thread]