日付スタンプを emacs lisp で

(defun my-insert-date ()
  (interactive)
  (insert (concat
           "" (format-time-string "%Y-%m-%d"))))
(define-key global-map "\C-cs" 'my-insert-date)

;; 実行すると『2010-11-25』みたいなのが入る。

• 参考サイト
  • Meadow/Emacs memo: テンプレートと更新時刻の入力