From 5b68b3331582c5ee6d49480e5e84c639a4848fec Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 14 Sep 2012 02:42:39 +0300 Subject: [PATCH] * lisp/dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input. Fixes: debbugs:12399 --- lisp/ChangeLog | 5 +++++ lisp/dired-aux.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c5c0c47494..1503935855 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-09-13 Juri Linkov + + * dired-aux.el (dired-do-chxxx): Use `eq' to detect empty input. + (Bug#12399) + 2012-09-13 Glenn Morris * calc/calc.el (math-compose-expr): diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 1f8e8068de..b42df954fe 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))) -- 2.20.1