equal
deleted
inserted
replaced
747 ) |
747 ) |
748 |
748 |
749 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
749 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
750 (message "grep, find") |
750 (message "grep, find") |
751 |
751 |
752 (eval-when 'compile (require 'grep)) |
752 (eval-when 'compile (require 'find-dired)) |
753 |
753 |
754 ;; -ls produce very noisy output: |
754 ;; -ls produce very noisy output: |
755 ;; (setq find-ls-option '("-ls" . "")) |
755 ;; (setq find-ls-option '("-ls" . "")) |
756 ;; So I use next expression, which work with GNU find, I replace %s with '0' |
756 ;; So I use next expression, which work with GNU find, I replace %s with '0' |
757 ;; to avoid unnecessary sys calls and this make output aligned by column: |
757 ;; to avoid unnecessary sys calls and this make output aligned by column: |
758 (setq find-ls-option '("-printf ' -rw-rw-rw- %9s %AY-%Am-%Ad %AH:%AM %p\n'" . "")) |
758 (setq find-ls-option '("-printf ' -rw-rw-rw- %9s %AY-%Am-%Ad %AH:%AM %p\n'" . "")) |
|
759 |
|
760 (eval-when 'compile (require 'grep)) |
759 |
761 |
760 ;; Do not set t because some grep do not has --color options. |
762 ;; Do not set t because some grep do not has --color options. |
761 (setq grep-highlight-matches nil) |
763 (setq grep-highlight-matches nil) |
762 (setq grep-use-null-device nil) |
764 (setq grep-use-null-device nil) |
763 |
765 |