# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 1130828600 0
# Node ID 8c8902a666bfa28f2d205af9a633ac8035f68470
# Parent  1c3c4d25eede11a1b3a84d06a287b47f15689074
(eshell-do-ls): Added no-op support for --dired flag, to prevent
Eshell from using the system ls when `eshell-ls-insert-directory' is
in used.
(eshell-ls-insert-directory): Disable font-lock in directory buffer so
that Eshell's own fontification is seen.  This broke recently due to
changes in font-lock, so this goes back to version 21 behavior.

diff -r 1c3c4d25eede -r 8c8902a666bf lisp/eshell/em-ls.el
--- a/lisp/eshell/em-ls.el	Tue Nov 01 07:03:03 2005 +0000
+++ b/lisp/eshell/em-ls.el	Tue Nov 01 07:03:20 2005 +0000
@@ -279,7 +279,8 @@
       (if (stringp switches)
 	  (setq switches (split-string switches)))
       (let (eshell-current-handles
-	    eshell-current-subjob-p)
+	    eshell-current-subjob-p
+	    font-lock-mode)
 	;; use the fancy highlighting in `eshell-ls' rather than font-lock
 	(when (and eshell-ls-use-colors
 		   (featurep 'font-lock))
@@ -320,7 +321,8 @@
   (defvar show-recursive)
   (defvar show-size)
   (defvar sort-method)
-  (defvar ange-cache))
+  (defvar ange-cache)
+  (defvar dired-flag))
 
 (defun eshell-do-ls (&rest args)
   "Implementation of \"ls\" in Lisp, passing ARGS."
@@ -333,7 +335,7 @@
    `((?a "all" nil show-all
 	 "show all files in directory")
      (?c nil by-ctime sort-method
-	 "sort by modification time")
+	 "sort by last status change time")
      (?d "directory" nil dir-literal
 	 "list directory entries instead of contents")
      (?k "kilobytes" 1024 block-size
@@ -372,6 +374,8 @@
 	 "sort alphabetically by entry extension")
      (?1 nil single-column listing-style
 	 "list one file per line")
+     (nil "dired" nil dired-flag
+	  "Here for compatibility with GNU ls.")
      (nil "help" nil nil
 	  "show this usage display")
      :external "ls"