From: Glenn Morris <rgm@gnu.org>
Date: Thu, 23 Sep 2010 07:17:08 +0000 (-0700)
Subject: Cosmetic changes for add-log.el.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~47^2~42^2~83
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b344dfef79b1fdd068b39036bb34ddeafa96b7d;p=emacs.git

Cosmetic changes for add-log.el.

* lisp/vc/add-log.el: Don't require timezone when compiling.
(timezone-make-date-sortable): Autoload it.
(change-log-sortable-date-at): Don't require timezone.
Use `ignore-errors'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bf7ed53108..658c4b18b58 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2010-09-23  Glenn Morris  <rgm@gnu.org>
 
+	* vc/add-log.el: Don't require timezone when compiling.
+	(timezone-make-date-sortable): Autoload it.
+	(change-log-sortable-date-at): Don't require timezone.
+	Use `ignore-errors'.
+
 	* comint.el (comint-use-prompt-regexp-instead-of-fields):
 	Move alias before definition, so it does not need autoloading.
 
diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el
index 23f1e33f181..b63e482ff05 100644
--- a/lisp/vc/add-log.el
+++ b/lisp/vc/add-log.el
@@ -37,9 +37,6 @@
 
 ;;; Code:
 
-(eval-when-compile
-  (require 'timezone))
-
 (defgroup change-log nil
   "Change log maintenance."
   :group 'tools
@@ -1252,19 +1249,18 @@ Has a preference of looking backwards."
 	  (change-log-get-method-definition-1 ""))
 	(concat change-log-get-method-definition-md "]"))))))
 
+(autoload 'timezone-make-date-sortable "timezone")
+
 (defun change-log-sortable-date-at ()
   "Return date of log entry in a consistent form for sorting.
 Point is assumed to be at the start of the entry."
-  (require 'timezone)
   (if (looking-at change-log-start-entry-re)
       (let ((date (match-string-no-properties 0)))
 	(if date
 	    (if (string-match "\\(....\\)-\\(..\\)-\\(..\\)\\s-+" date)
 		(concat (match-string 1 date) (match-string 2 date)
 			(match-string 3 date))
-	      (condition-case nil
-		  (timezone-make-date-sortable date)
-		(error nil)))))
+	      (ignore-errors (timezone-make-date-sortable date)))))
     (error "Bad date")))
 
 (defun change-log-resolve-conflict ()