(change-log-redate): Remove (not needed anymore and

doesn't appear to work).

2 files changed, 5 insertions, 23 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20996aa2244..ef350751248 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-25  Nick Roberts  <nickrob@snap.net.nz>
+
+        * add-log.el (change-log-redate): Remove (not needed anymore and
+        doesn't appear to work).
+
 2007-07-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * frame.el: Use mapc and dolist instead of mapcar where possible.
diff --git a/lisp/add-log.el b/lisp/add-log.el
index 458dfcff523..25d0ab4a7cb 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -1155,29 +1155,6 @@ old-style time formats for entries are supported."
               (goto-char (point-max)))
             (insert-buffer-substring other-buf start)))))))
 
-;;;###autoload
-(defun change-log-redate ()
-  "Fix any old-style date entries in the current log file to default format."
-  (interactive)
-  (require 'timezone)
-  (save-excursion
-    (goto-char (point-min))
-    (while (re-search-forward "^\\sw.........[0-9:+ ]*" nil t)
-      (unless (= 12 (- (match-end 0) (match-beginning 0)))
-        (let* ((date (save-match-data
-                       (timezone-fix-time (match-string 0) nil nil)))
-               (zone (if (consp (aref date 6))
-                         (nth 1 (aref date 6)))))
-          (replace-match (format-time-string
-                          "%Y-%m-%d  "
-                          (encode-time (aref date 5)
-                                       (aref date 4)
-                                       (aref date 3)
-                                       (aref date 2)
-                                       (aref date 1)
-                                       (aref date 0)
-                                       zone))))))))
-
 (provide 'add-log)
 
 ;; arch-tag: 81eee6fc-088f-4372-a37f-80ad9620e762