>>708
insert-date はこうやって書いた方が良いのでは?

(defun insert-date ()
(interactive)
(insert (format-time-string "[%Y%m%d]" (current-time)))
)