279 |
(if (stringp switches) |
(if (stringp switches) |
280 |
(setq switches (split-string switches))) |
(setq switches (split-string switches))) |
281 |
(let (eshell-current-handles |
(let (eshell-current-handles |
282 |
eshell-current-subjob-p) |
eshell-current-subjob-p |
283 |
|
font-lock-mode) |
284 |
;; use the fancy highlighting in `eshell-ls' rather than font-lock |
;; use the fancy highlighting in `eshell-ls' rather than font-lock |
285 |
(when (and eshell-ls-use-colors |
(when (and eshell-ls-use-colors |
286 |
(featurep 'font-lock)) |
(featurep 'font-lock)) |
321 |
(defvar show-recursive) |
(defvar show-recursive) |
322 |
(defvar show-size) |
(defvar show-size) |
323 |
(defvar sort-method) |
(defvar sort-method) |
324 |
(defvar ange-cache)) |
(defvar ange-cache) |
325 |
|
(defvar dired-flag)) |
326 |
|
|
327 |
(defun eshell-do-ls (&rest args) |
(defun eshell-do-ls (&rest args) |
328 |
"Implementation of \"ls\" in Lisp, passing ARGS." |
"Implementation of \"ls\" in Lisp, passing ARGS." |
335 |
`((?a "all" nil show-all |
`((?a "all" nil show-all |
336 |
"show all files in directory") |
"show all files in directory") |
337 |
(?c nil by-ctime sort-method |
(?c nil by-ctime sort-method |
338 |
"sort by modification time") |
"sort by last status change time") |
339 |
(?d "directory" nil dir-literal |
(?d "directory" nil dir-literal |
340 |
"list directory entries instead of contents") |
"list directory entries instead of contents") |
341 |
(?k "kilobytes" 1024 block-size |
(?k "kilobytes" 1024 block-size |
374 |
"sort alphabetically by entry extension") |
"sort alphabetically by entry extension") |
375 |
(?1 nil single-column listing-style |
(?1 nil single-column listing-style |
376 |
"list one file per line") |
"list one file per line") |
377 |
|
(nil "dired" nil dired-flag |
378 |
|
"Here for compatibility with GNU ls.") |
379 |
(nil "help" nil nil |
(nil "help" nil nil |
380 |
"show this usage display") |
"show this usage display") |
381 |
:external "ls" |
:external "ls" |