492 |
492 |
493 (when (>= emacs-major-version 22) |
493 (when (>= emacs-major-version 22) |
494 ;; Enable 'a' command. |
494 ;; Enable 'a' command. |
495 (put 'dired-find-alternate-file 'disabled nil) |
495 (put 'dired-find-alternate-file 'disabled nil) |
496 ) |
496 ) |
|
497 |
|
498 ;;; ---------------------------------------------------------------- |
|
499 ;;; ls-lisp, dired ls. |
|
500 |
|
501 ;; If non-nil - use 'insert-directory-program', which I dislike. |
|
502 (setq ls-lisp-use-insert-directory-program nil) |
|
503 (setq ls-lisp-ignore-case t) |
|
504 (setq ls-lisp-dirs-first t) |
|
505 (if (eq system-type 'windows-nt) |
|
506 (setq ls-lisp-verbosity nil) |
|
507 (setq ls-lisp-verbosity '(links uid gid))) |
|
508 ;; Force use 'ls-lisp-format-time-list'. |
|
509 (setq ls-lisp-use-localized-time-format t) |
|
510 (setq ls-lisp-format-time-list |
|
511 '("%Y-%m-%d %H:%M" |
|
512 "%Y-%m-%d ")) |
497 |
513 |
498 ;;; ---------------------------------------------------------------- |
514 ;;; ---------------------------------------------------------------- |
499 ;;; compression, archive. |
515 ;;; compression, archive. |
500 |
516 |
501 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode. |
517 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode. |