Commit 8a00d4ff authored by Nick Roberts's avatar Nick Roberts
Browse files

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

doesn't appear to work).
parent 52b71f49
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment