sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-10-30 22:53:37 +00:00
Code Issues Releases Wiki Activity

Fix file size determination for symbolic links.

Browse Source
This commit is contained in:
Andrey Kotlarski
2013-12-12 16:16:32 +02:00
parent 9ffb968793
commit bb482f0b0f
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
vlf.el
View File

@@ -192,13 +192,11 @@ You can customize number of bytes displayed by customizing
(if (memq system-type '(windows-nt cygwin)) (if (memq system-type '(windows-nt cygwin))
;; System is case-insensitive. ;; System is case-insensitive.
(let ((case-fold-search t)) (let ((case-fold-search t))
(assoc-default name auto-mode-alist (assoc-default name auto-mode-alist 'string-match))
'string-match))
;; System is case-sensitive. ;; System is case-sensitive.
(or ;; First match case-sensitively. (or ;; First match case-sensitively.
(let ((case-fold-search nil)) (let ((case-fold-search nil))
(assoc-default name auto-mode-alist (assoc-default name auto-mode-alist 'string-match))
'string-match))
;; Fallback to case-insensitive match. ;; Fallback to case-insensitive match.
(and auto-mode-case-fold (and auto-mode-case-fold
(let ((case-fold-search t)) (let ((case-fold-search t))
@@ -297,7 +295,7 @@ with the prefix argument DECREASE it is halved."
(defun vlf-get-file-size (file) (defun vlf-get-file-size (file)
"Get size in bytes of FILE." "Get size in bytes of FILE."
(or (nth 7 (file-attributes file)) 0)) (or (nth 7 (file-attributes (file-truename file))) 0))
(defun vlf-verify-size () (defun vlf-verify-size ()
"Update file size information if necessary and visited file time." "Update file size information if necessary and visited file time."