Hatena::Grouparaistudy

czk-htnの日記

2007-12-31

[] 初elisp 13:54

入門 GNU Emacs 第3版を参考になるべくお手本を見ずに書いてみた。

(defun count-word ()
  (interactive)
  (let ((count 0))
    (save-excursion
      (goto-char (point-min))
      (while (< (point) (point-max))
	(forward-word 1)
	(setq count (1+ count))
	)
      (message "%d words" count))))
トラックバック - http://araistudy.g.hatena.ne.jp/czk-htn/20071231