emacs-diffs
[Top][All Lists]
Advanced

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

master 95371fa7542 2/4: ; * lisp/emacs-lisp/chart.el (chart--directory-s


From: Mattias Engdegård
Subject: master 95371fa7542 2/4: ; * lisp/emacs-lisp/chart.el (chart--directory-size): Simpler regexp
Date: Mon, 9 Sep 2024 04:42:28 -0400 (EDT)

branch: master
commit 95371fa754260199a6ea3428721270a89c341928
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    ; * lisp/emacs-lisp/chart.el (chart--directory-size): Simpler regexp
    
    The empty regexp matches any string.
---
 lisp/emacs-lisp/chart.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el
index 2ca9b64be33..3acf2588f24 100644
--- a/lisp/emacs-lisp/chart.el
+++ b/lisp/emacs-lisp/chart.el
@@ -649,7 +649,7 @@ SORT-PRED if desired."
   "Compute total size of files in directory DIR and its subdirectories.
 DIR is assumed to be a directory, verified by the caller."
   (let ((size 0))
-    (dolist (file (directory-files-recursively dir "." t))
+    (dolist (file (directory-files-recursively dir "" t))
       (let ((fsize (nth 7 (file-attributes file))))
         (if (> fsize 0)
             (setq size



reply via email to

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