ChangeLogメモに曜日を入れる

現在、僕の作業には欠かせないChangeLogメモですが、このコードが僕の環境(redhat9/xemacs-21.4.12)では動作しませんでした(add-log.elが違うのが原因みたい)。そこで、僕の環境/使いかたにあわせてコードを改変。

;
; ChangeLogメモに曜日を入れる
; (http://namazu.org/~satoru/diary/?200301b&to=200301151#200301151)より改変
;
(defun add-log-iso8601-time-string-with-weekday ()
  (let ( ( system-time-locale "C" ) )
    (concat (iso8601-time-string)
            " " "(" (format-time-string "%a") ")")))
(add-hook 'change-log-mode-hook
          (function
           (lambda ()
             (set (make-local-variable 'add-log-time-format)
                  'add-log-iso8601-time-string-with-weekday)
           )))

要は、add-log-iso8601-time-stringじゃなくてiso8601-time-stringを使わなきゃいけない、というだけのこと。