emacs-diffs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]