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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d10f1f51003442608f514ced37a6d7c9daff063..1852fe9ea534ca4ce90901d6a0e221c95f42548f 100644 (file)
--- 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-04  Francesco Potort\e,Al\e(B  <pot@gnu.org>
 
        * mail/rmailout.el (rmail-output): If preserving MIME-version,

diff --git a/lisp/dired.el b/lisp/dired.el
index f51b4d746b0b1da281d631554f2a5b4d11290421..e024f2b4cea645d19ea01eaa907be00dc75cf265 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1541,11 +1541,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]?" 
+    (concat ".*[0-9][kKMGTPEZY]?" 
            s "\\(" western "\\|" japanese "\\|" iso "\\)" s))
   "Regular expression to match up to the file name in a directory listing.
 The default value is designed to recognize dates and times