mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

* dired-aux.el (dired-touch-initial): Just use current-time. (Bug#6887)

Browse Source
This commit is contained in:
Glenn Morris 2011-05-20 19:07:25 -07:00
parent 3f1a855858
commit 973d955b4d
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2011-05-21 Glenn Morris <rgm@gnu.org>
* 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)

19
lisp/dired-aux.el
View File

@ -229,14 +229,17 @@ List has a form of (file-name full-file-name (attribute-list))."
(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