* lisp/dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input.

Fixes: debbugs:12399

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5c0c47494035cdc60f47913cd5088db39974cd6..15039358559703ecbeb448e31899e2d868124a27 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-13  Juri Linkov  <juri@jurta.org>
+
+       * dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input.
+       (Bug#12399)
+
 2012-09-13  Glenn Morris  <rgm@gnu.org>
 
        * calc/calc.el (math-compose-expr):

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 1f8e8068de3c4e8d131832e70efd0fdcde614a09..b42df954fe5a706d87a861146de8749fcad4e8ce 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -244,7 +244,10 @@ List has a form of (file-name full-file-name (attribute-list))."
                             (function dired-check-process)
                             (append
                              (list operation program)
-                             (unless (string-equal new-attribute "")
+                             (unless (or (string-equal new-attribute "")
+                                         ;; Use `eq' instead of `equal'
+                                         ;; to detect empty input (bug#12399).
+                                         (eq new-attribute default))
                                (if (eq op-symbol 'touch)
                                    (list "-t" new-attribute)
                                  (list new-attribute)))