Commit 6bd2011c authored by Nick Roberts's avatar Nick Roberts
Browse files

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

doesn't appear to work).
parent 5a1164db
......@@ -1104,29 +1104,6 @@ old-style time formats for entries are supported."
(goto-char (point-max)))
(insert-buffer-substring other-buf start)))))))
(defun change-log-redate ()
"Fix any old-style date entries in the current log file to default format."
(require 'timezone)
(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)
(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