From: Juri Linkov <juri@jurta.org>
Date: Thu, 13 Sep 2012 23:42:39 +0000 (+0300)
Subject: * lisp/dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input.
X-Git-Tag: emacs-24.2.90~281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b68b3331582c5ee6d49480e5e84c639a4848fec;p=emacs.git

* 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 c5c0c474940..15039358559 100644
--- 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 1f8e8068de3..b42df954fe5 100644
--- 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)))