カレンダープログラミングコンテスト その3

先日、昨日に引き続き、今度は Emacs Lisp です。

• 「プロ生ちゃん #カレンダープログラミング プチコンテスト 2014」開催！ – プログラミング生放送
• #カレンダープログラミング コンテスト - Togetter
• 「#カレンダープログラミング プチコンテスト 2014」ピックアップ Vol. 1 – プログラミング生放送

関数定義と関数を評価すると、新しいバッファ　"This month" を開いて、今月のカレンダーを表示します。
でも、動く環境と動かない環境があるんだよなー。何が足りないかな？
(defun show-this-month() "Show a calendar of this month in a new buffer" (require 'calendar) (get-buffer-create "This month") (switch-to-buffer "This month") (erase-buffer) (setq month (car (calendar-current-date))) (setq year (car (cdr (cdr (calendar-current-date))))) (generate-calendar-month month year 0)) (show-this-month)
あえて今月の分だけ出そうとしたんだけど、とにかく簡単に呼び出すなら
(calendar)
で。
M-x calendar だとプログラミングじゃなくなってしまう。