”前回”のつづきです。

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

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という変数を導入して、正規表現を代入するという形にしてみました。

• 「やさしいEmacs‐Lisp講座」に関連する最近のエントリ
  • カーソル位置から行末までの数字を全て加算してその結果を返すelisp – 武蔵の日記
  • Emacs-Lispの勉強 – 武蔵の日記
  • 『やさしいEmacs‐Lisp講座』を購入 – 武蔵の日記