[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104301: * dired-aux.el (dired-touch-
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104301: * dired-aux.el (dired-touch-initial): Just use current-time. (Bug#6887) |
Date: |
Fri, 20 May 2011 19:07:25 -0700 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104301: * dired-aux.el (dired-touch-initial): Just use current-time. (Bug#6887),
Glenn Morris <=