『やさしいEmacs‐Lisp講座』の練習問題

Dec 23, 2008   #Emacs  #Lisp  :

”前回”のつづきです。

次のような書式のタイムスタンプがあるとき、このタイムスタンプを検索し、曜日のところにポイントを移動させる関数を作成せよ。

Revision Date: Tue Dec 23 20:07:26 2008

作成したコード

(defun my-place-date ()
(interactive)
(let ((r_exp "Revision Date: \\([A-z]+\\) \\([A-z]+\\) \\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([0-9]+\\)"))
(re-search-forward r_exp nil t)
(goto-char (match-beginning 1))))

r_expという変数を導入して、正規表現を代入するという形にしてみました。