From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 7 Sep 2024 14:05:07 +0000 (+0200)
Subject: ; * lisp/emacs-lisp/chart.el (chart--directory-size): Simpler regexp
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33b7cc1d0e271ac349c4f872df04d197c3a52441;p=emacs.git

; * lisp/emacs-lisp/chart.el (chart--directory-size): Simpler regexp

The empty regexp matches any string.

(cherry picked from commit 95371fa754260199a6ea3428721270a89c341928)
---

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