--- title: 『やさしいEmacs‐Lisp講座』の練習問題 author: kazu634 date: 2008-12-23 wordtwit_post_info: - 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4461;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}' categories: - 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という変数を導入して、正規表現を代入するという形にしてみました。