(dired-move-to-filename-regexp): Support "K" suffix on "ls -alh" output.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb5228a5ef7..c68c115e178 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-06  Matthew Swift  <swift@alum.mit.edu>
+
+        * dired.el (dired-move-to-filename-regexp): Support "K" suffix on
+        "ls -alh" output.
+
 2003-02-05  Juanma Barranquero  <lektu@terra.es>
 
         * font-lock.el (font-lock-reference-face): Add obsolescence
diff --git a/lisp/dired.el b/lisp/dired.el
index d15d80411f1..6261e6bb392 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1572,11 +1572,11 @@ DIR must be a directory name, not a file name."
          ;; The "[0-9]" below requires the previous column to end in a digit.
          ;; This avoids recognizing `1 may 1997' as a date in the line:
          ;; -r--r--r--   1 may      1997        1168 Oct 19 16:49 README
-         ;; The "[kMGTPEZY]?" below supports "ls -alh" output.
+         ;; The "[kKMGTPEZY]?" below supports "ls -alh" output.
          ;; The ".*" below finds the last match if there are multiple matches.
          ;; This avoids recognizing `jservice  10  1024' as a date in the line:
          ;; drwxr-xr-x  3 jservice  10  1024 Jul  2  1997 esg-host
-    (concat ".*[0-9][kMGTPEZY]?" s
+    (concat ".*[0-9][kKMGTPEZY]?" s
             "\\(" western "\\|" western-comma "\\|" japanese "\\|" iso "\\)"
             s "+"))
   "Regular expression to match up to the file name in a directory listing.