let ls not default to ls -l -a

This commit is contained in:
mainzelm 2006-04-07 07:36:04 +00:00
parent 9321a0e8cf
commit bd1f30f129
1 changed files with 3 additions and 3 deletions

View File

@ -127,8 +127,8 @@
;; We don't care for options that format the output.
(define defaults-ls-options
'((long . #t)
(dot-files? . #t)
'((long . #f)
(dot-files? . #f)
(sort-by-mtime . #f)
(reverse-sort . #f)))
@ -170,7 +170,7 @@
no-completer
(lambda (command args)
(debug-message "running ls plugin" command args)
(receive (options paths) (parse-ls-arguments args)
(receive (options paths) (parse-ls-arguments args) ;; 'long is ignored
(let* ((set? (lambda (opt) (cdr (assoc opt options))))
(sort
(if (set? 'sort-by-mtime)