[Emacs-diffs] /srv/bzr/emacs/trunk r104301: * dired-aux.el (dired-touch-initial): Just use current-time. (Bug#6887)

[Glenn Morris]

------------------------------------------------------------
revno: 104301
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-20 19:07:25 -0700
message:
  * dired-aux.el (dired-touch-initial): Just use current-time.  (Bug#6887)
modified:
  lisp/ChangeLog
  lisp/dired-aux.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-21 02:06:11 +0000
+++ b/lisp/ChangeLog    2011-05-21 02:07:25 +0000
@@ -1,5 +1,7 @@
 2011-05-21  Glenn Morris  <address@hidden>
 
+       * dired-aux.el (dired-touch-initial): Just use current-time.  (Bug#6887)
+
        * wid-edit.el (widget-checklist-match-inline):
        Fix 2011-04-19 change.  (Bug#8649)
 

=== modified file 'lisp/dired-aux.el'
--- a/lisp/dired-aux.el 2011-04-19 13:44:55 +0000
+++ b/lisp/dired-aux.el 2011-05-21 02:07:25 +0000
@@ -229,14 +229,17 @@
 
 (defun dired-touch-initial (files)
   "Create initial input value for `touch' command."
-  (let (initial)
-    (while files
-      (let ((current (nth 5 (file-attributes (car files)))))
-        (if (and initial (not (equal initial current)))
-            (setq initial (current-time) files nil)
-          (setq initial current))
-        (setq files (cdr files))))
-    (format-time-string "%Y%m%d%H%M.%S" initial)))
+  ;; Nobody can explain what this version is supposed to do.  (Bug#6887)
+  ;; Also, the manual says it uses "the present time".
+  ;;; (let (initial)
+  ;;;   (while files
+  ;;;     (let ((current (nth 5 (file-attributes (car files)))))
+  ;;;       (if (and initial (not (equal initial current)))
+  ;;;           (setq initial (current-time) files nil)
+  ;;;         (setq initial current))
+  ;;;       (setq files (cdr files))))
+  ;;;   (format-time-string "%Y%m%d%H%M.%S" initial)))
+  (format-time-string "%Y%m%d%H%M.%S" (current-time)))
 
 (defun dired-do-chxxx (attribute-name program op-symbol arg)
   ;; Change file attributes (mode, group, owner, timestamp) of marked files and