let ls not default to ls -l -a
This commit is contained in:
parent
9321a0e8cf
commit
bd1f30f129
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue