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

doesn't appear to work).
This commit is contained in:
Nick Roberts 2007-07-25 21:46:01 +00:00
parent 5a1164db12
commit 6bd2011cd3

View file

@ -1104,29 +1104,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