# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1201353268 0
# Node ID 1787561f6c222b0ac0f2115473043f95a20889a8
# Parent  66e6887d98d05da19de94e1519dfcb339cd82ffd
(ls-lisp-insert-directory): If -n switch is used, invoke
directory-files-and-attributes with last argument `integer' instead
of `string'.
(insert-directory): Add -n to the list of supported switches mentioned in
the doc string.

diff -r 66e6887d98d0 -r 1787561f6c22 lisp/ls-lisp.el
--- a/lisp/ls-lisp.el	Sat Jan 26 13:04:14 2008 +0000
+++ b/lisp/ls-lisp.el	Sat Jan 26 13:14:28 2008 +0000
@@ -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