(change-log-redate): Remove (not needed anymore and
doesn't appear to work).
This commit is contained in:
parent
5a1164db12
commit
6bd2011cd3
1 changed files with 0 additions and 23 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue