3

M-x find-dired/の人間が読める出力を探していM-x find-gred-diredます。私は以下を使用しようとしました：

(setq find-ls-option '("-print0 | xargs -0 ls -alhd" . "-alhd"))

ただし、 が原因-hで、見つかった出力が適切に配置されていないため、実際には人間が読めるものではありません (下のスクリーンショット [dired+] を参照)。これに対する（あまり邪魔にならない）解決策はありますか？

ここに画像の説明を入力

artscan が指摘したように-i、オプションです。次に、この「反例」を見つけました。

ここに画像の説明を入力

4

2 に答える 2

1

ちょっと遊んでみました。ファイルサイズがバイト単位で指定されているファイル（単位なし）を除いて、インデントは突然問題ありませんでした。次に、「2番目の」オプションセットが何であるか疑問に思いましたfind-ls-option。明確な方法で説明していC-h v find-ls-optionませんが (IMHO)、オプションの 2 番目のセットを空のままにしておくだけで正しいインデントが得られることがわかりました。

(setq find-ls-option '("-print0 | xargs -0 ls -alhd" . ""))
于 2013-01-31T17:51:49.863 に答える
0

編集:問題は正規表現にあります。関数にパッチを適用する必要がありますfind-dired-filter：

diff -u -L /usr/share/emacs/24.2/lisp/find-dired.el.gz -L \#\<buffer\ find-dired.el.gz\> /tmp/jka-com8644f_j /tmp/buffer-content-86445Tw
--- /usr/share/emacs/24.2/lisp/find-dired.el.gz
+++ #<buffer find-dired.el.gz>
@@ -289,7 +289,7 @@
            (l-opt (and (consp find-ls-option)
                (string-match "l" (cdr find-ls-option))))
            (ls-regexp (concat "^ +[^ \t\r\n]+\\( +[^ \t\r\n]+\\) +"
-                      "[^ \t\r\n]+ +[^ \t\r\n]+\\( +[0-9]+\\)")))
+                      "[^ \t\r\n]+ +[^ \t\r\n]+\\( +[0-9,.]+\\)")))
        (goto-char beg)
        (insert string)
        (goto-char beg)
于 2013-01-31T02:01:57.060 に答える