# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1080027575 0
# Node ID 21bd0a1f7d1ae05cdf78eab44a78a962bbeacd96
# Parent  8379dc4bdc830e7228301763d4a9fbef60678f3c
(dired-compress-file-suffixes): Add dz and tbz.
(dired-compare-directories): Add default value for empty input.

diff -r 8379dc4bdc83 -r 21bd0a1f7d1a lisp/dired-aux.el
--- 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))