Lines Matching +defs:keep +defs:date
87 date in international ISO 8601 format,
96 (defcustom add-log-keep-changes-together nil
97 "If non-nil, normally keep day's log entries for one file together.
170 (defface change-log-date
172 "Face used to highlight dates in date lines."
176 (put 'change-log-date-face 'face-alias 'change-log-date)
238 ;; wrongly with a non-date line existing as a random note. In
242 (0 'change-log-date-face)
487 never append to an existing entry. Option `add-log-keep-changes-together'
491 new record, even when the last record was made on the same date and by
498 Today's date is calculated according to `add-log-time-zone-rule' if
576 (if add-log-keep-changes-together
577 (forward-page) ; page delimits entries for date
709 ;; Match null string on the date-line so that the date-line
1028 (defun change-log-sortable-date-at ()
1029 "Return date of log entry in a consistent form for sorting.
1033 (let ((date (match-string-no-properties 0)))
1034 (if date
1035 (if (string-match "\\(....\\)-\\(..\\)-\\(..\\)\\s-+" date)
1036 (concat (match-string 1 date) (match-string 2 date)
1037 (match-string 3 date))
1039 (timezone-make-date-sortable date)
1041 (error "Bad date")))
1081 (setq date1 (change-log-sortable-date-at))
1087 (string< date1 (change-log-sortable-date-at)))
1106 "Fix any old-style date entries in the current log file to default format."
1113 (let* ((date (save-match-data
1115 (zone (if (consp (aref date 6))
1116 (nth 1 (aref date 6)))))
1119 (encode-time (aref date 5)
1120 (aref date 4)
1121 (aref date 3)
1122 (aref date 2)
1123 (aref date 1)
1124 (aref date 0)