(dired-do-touch): New fun.

(dired-do-chxxx): Add argument -t for touch operation.

2 files changed, 28 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab9461d7267..f87dc926955 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2004-03-31  Juri Linkov  <juri@jurta.org>
+
+        * dired.el: Add autoload for `dired-do-touch'.
+        (dired-touch-program): New var.
+        (dired-mode-map): Bind `dired-do-touch' to T and add menu-item.
+        (dired-no-confirm): Add `touch' to docstring.
+
+        * dired-aux.el (dired-do-touch): New fun.
+        (dired-do-chxxx): Add argument -t for touch operation.
+
+        * dired-x.el (dired-mark-sexp): Replace hard-coded month names by
+        `dired-move-to-filename-regexp'.
+
+2004-03-31  H,Ae(Bkan Granath  <hakan.granath@kau.se>  (tiny change)
+
+        * dired.el (dired-move-to-filename-regexp): Add . to HH:MM.
+
 2004-03-30  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
         * progmodes/ebnf2ps.el (ebnf-eps-finish-and-write): Write a buffer if
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 1fc8e0e805a..0709e0cfe1c 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -186,7 +186,7 @@ List has a form of (file-name full-file-name (attribute-list))"
    (directory-files dir)))
 
 (defun dired-do-chxxx (attribute-name program op-symbol arg)
-  ;; Change file attributes (mode, group, owner) of marked files and
+  ;; Change file attributes (mode, group, owner, timestamp) of marked files and
   ;; refresh their file lines.
   ;; ATTRIBUTE-NAME is a string describing the attribute to the user.
   ;; PROGRAM is the program used to change the attribute.
@@ -203,7 +203,10 @@ List has a form of (file-name full-file-name (attribute-list))"
           (dired-bunch-files 10000
                              (function dired-check-process)
                              (append
-                              (list operation program new-attribute)
+                              (list operation program)
+                              (if (eq op-symbol 'touch)
+                                  '("-t") nil)
+                              (list new-attribute)
                               (if (string-match "gnu" system-configuration)
                                   '("--") nil))
                              files))
@@ -236,6 +239,12 @@ This calls chmod, thus symbolic modes like `g+w' are allowed."
       (error "chown not supported on this system"))
   (dired-do-chxxx "Owner" dired-chown-program 'chown arg))
 
+(defun dired-do-touch (&optional arg)
+  "Change the timestamp of the marked (or next ARG) files.
+This calls touch."
+  (interactive "P")
+  (dired-do-chxxx "Timestamp" dired-touch-program 'touch arg))
+
 ;; Process all the files in FILES in batches of a convenient size,
 ;; by means of (FUNCALL FUNCTION ARGS... SOME-FILES...).
 ;; Batches are chosen to need less than MAX chars for the file names,