[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/add-log.el,v [EMACS_22_BASE]
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/add-log.el,v [EMACS_22_BASE] |
Date: |
Wed, 25 Jul 2007 21:46:02 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Nick Roberts <nickrob> 07/07/25 21:46:02
Index: add-log.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/add-log.el,v
retrieving revision 1.184.2.2
retrieving revision 1.184.2.3
diff -u -b -r1.184.2.2 -r1.184.2.3
--- add-log.el 25 Jul 2007 04:47:38 -0000 1.184.2.2
+++ add-log.el 25 Jul 2007 21:46:01 -0000 1.184.2.3
@@ -1104,29 +1104,6 @@
(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