From 67ca08bb2d43534cbcb02302b555d31d922a898e Mon Sep 17 00:00:00 2001 From: tfheen Date: Wed, 12 May 2004 21:24:56 +0000 Subject: [PATCH] Fix up changelog stuff git-svn-id: file:///svn/tfheen/trunk/dotfiles@583 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- emacs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/emacs b/emacs index 6514248..16c8148 100644 --- a/emacs +++ b/emacs @@ -239,3 +239,24 @@ (if (not window-system) (define-coding-system-alias 'iso-8859-15 'iso-8859-1))) +(setq add-log-full-name "Tollef Fog Heen" + add-log-time-format 'tfheen-dpkg-changelog-time) + +(defun tfheen-dpkg-changelog-time () + (let* ((time (decode-time)) + (sec (first time)) + (minute (second time)) + (hour (third time)) + (day (fourth time)) + (month (fifth time)) + (year (sixth time)) + (dow (seventh time)) + (dst (eighth time)) + (zone (second (current-time-zone))) + (daynames '("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun")) + (monthnames '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec")) + (dayname nil) + (monthname nil)) + (setq dayname (nth (- dow 1) daynames) + monthname (nth (- month 1) monthnames)) + (format "%s %s %d %2d:%2d:%2d %s %d" dayname monthname day hour minute sec zone year))) -- 2.39.5