Mercurial > emacs
changeset 54523:21bd0a1f7d1a
(dired-compress-file-suffixes): Add dz and tbz.
(dired-compare-directories): Add default value for empty input.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 23 Mar 2004 07:39:35 +0000 |
| parents | 8379dc4bdc83 |
| children | d3e10b0b1a2e |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Tue Mar 23 07:38:57 2004 +0000 +++ b/lisp/dired-aux.el Tue Mar 23 07:39:35 2004 +0000 @@ -93,6 +93,8 @@ Compare file attributes of files in the current directory with file attributes in directory DIR2 using PREDICATE on pairs of files with the same name. Mark files for which PREDICATE returns non-nil. +Mark files with different names if PREDICATE is nil (or interactively +when the user enters empty input at the predicate prompt). PREDICATE is a Lisp expression that can refer to the following variables: @@ -115,7 +117,7 @@ (list (read-file-name (format "Compare %s with: " (dired-current-directory)) (dired-dwim-target-directory)) - (read-minibuffer "Mark if (lisp expr): "))) + (read-from-minibuffer "Mark if (lisp expr or RET): " nil nil t nil "nil"))) (let* ((dir1 (dired-current-directory)) (file-alist1 (dired-files-attributes dir1)) (file-alist2 (dired-files-attributes dir2)) @@ -659,6 +661,8 @@ ;; For .z, try gunzip. It might be an old gzip file, ;; or it might be from compact? pack? (which?) but gunzip handles both. ("\\.z\\'" "" "gunzip") + ("\\.dz\\'" "" "dictunzip") + ("\\.tbz\\'" ".tar" "bunzip2") ("\\.bz2\\'" "" "bunzip2") ;; This item controls naming for compression. ("\\.tar\\'" ".tgz" nil))