From: Sebastian Reuße <seb@wirrsal.net>
Date: Sat, 30 Dec 2017 10:41:23 +0000 (+0200)
Subject: Fix output alignment in 'find-dired' for "ls -h"
X-Git-Tag: emacs-27.0.90~5947
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb20043b2fec8e8aff6354ec1396fd5ba688b76b;p=emacs.git

Fix output alignment in 'find-dired' for "ls -h"

* lisp/find-dired.el (find-dired-filter): Fix alignment of
the file size column when the -h ls option is used in
'find-ls-option'.  (Bug#29803)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index 3b0613b2806..bf815d500d0 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -295,7 +295,7 @@ specifies what to use in place of \"-ls\" as the final argument."
 		    (l-opt (and (consp find-ls-option)
 				(string-match "l" (cdr find-ls-option))))
 		    (ls-regexp (concat "^ +[^ \t\r\n]+\\( +[^ \t\r\n]+\\) +"
-				       "[^ \t\r\n]+ +[^ \t\r\n]+\\( +[0-9]+\\)")))
+				       "[^ \t\r\n]+ +[^ \t\r\n]+\\( +[^[:space:]]+\\)")))
 		(goto-char beg)
 		(insert string)
 		(goto-char beg)