[Emacs-diffs] /srv/bzr/emacs/trunk r110021: * lisp/dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input.

[Juri Linkov]

------------------------------------------------------------
revno: 110021
fixes bug: http://debbugs.gnu.org/12399
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2012-09-14 02:42:39 +0300
message:
  * lisp/dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input.
modified:
  lisp/ChangeLog
  lisp/dired-aux.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-13 18:41:21 +0000
+++ b/lisp/ChangeLog    2012-09-13 23:42:39 +0000
@@ -1,3 +1,8 @@
+2012-09-13  Juri Linkov  <address@hidden>
+
+       * dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input.
+       (Bug#12399)
+
 2012-09-13  Glenn Morris  <address@hidden>
 
        * calc/calc.el (math-compose-expr):

=== modified file 'lisp/dired-aux.el'
--- a/lisp/dired-aux.el 2012-09-08 14:48:26 +0000
+++ b/lisp/dired-aux.el 2012-09-13 23:42:39 +0000
@@ -244,7 +244,10 @@
                             (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)))