next up previous
Next: 5.7 Emacs固有の関数 Up: 5 Emacslisp Previous: 5.5 フレームサイズを変える例

5.6 日記 


2003.5.3(土曜日) 
        10:00 授業参観
2003.5.2(金曜日)
        15:30 教授会
        17:00 委員会
2003.5.1(木曜日)
        12:00 会議
        14:00 研究会
        17:00 学外委員会
2003.4.30(水曜日)
        12:00 講義
2003.4.29(火曜日) 
2003.4.28(月曜日)
というようなファイルで，日付の部分を 順に検索してゆくemacsのコマンドを定義すると， 
(defun my-search-stamp ()
  (interactive)
  (if (re-search-forward
       "[12][0-9][0-9][0-9].[1]?[0-9].[1-9]?[0-9](\\(.\\)曜日)"
       nil t)
      (if (match-beginning 1)
          (goto-char (match-beginning 1))
        (goto-char (match-end 0))
    (goto-char p)
    nil)))
というように定義できる．
generated through LaTeX2HTML. M.Inaba 平成18年5月7日