[Emacs-diffs] Changes to emacs/lisp/ls-lisp.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/01/26 13:14:28

Index: ls-lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ls-lisp.el,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -b -r1.70 -r1.71
--- ls-lisp.el  8 Jan 2008 20:44:51 -0000       1.70
+++ ls-lisp.el  26 Jan 2008 13:14:28 -0000      1.71
@@ -209,7 +209,7 @@
 supports ordinary shell wildcards if `ls-lisp-support-shell-wildcards'
 is non-nil; otherwise, it interprets wildcards as regular expressions
 to match file names.  It does not support all `ls' switches -- those
-that work are: A a c i r S s t u U X g G B C R and F partly."
+that work are: A a c i r S s t u U X g G B C R n and F partly."
   (if ls-lisp-use-insert-directory-program
       (funcall original-insert-directory
               file switches wildcard full-directory-p)
@@ -286,7 +286,10 @@
       (let* ((dir (file-name-as-directory file))
             (default-directory dir)    ; so that file-attributes works
             (file-alist
-             (directory-files-and-attributes dir nil wildcard-regexp t 
'string))
+             (directory-files-and-attributes dir nil wildcard-regexp t
+                                             (if (memq ?n switches)
+                                                 'integer
+                                               'string)))
             (now (current-time))
             (sum 0)
             ;; do all bindings here for speed