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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb5228a5ef79925d5356aeab68a3f12663f0d330..c68c115e1780c8e016bbbfaf51461eaedb98e5e7 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-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 d15d80411f113c44402fc815202d4bb120d6cacb..6261e6bb392231181ddb5978927fdc39c1520508 100644 (file)
--- 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.