mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

Cosmetic changes for add-log.el.

Browse Source 
* 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'.
This commit is contained in:
Glenn Morris 2010-09-23 00:17:08 -07:00
parent d97034985a
commit 7b344dfef7
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

10
lisp/vc/add-log.el
View File

@ -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 ()