[xyzzy:06382] 文字数、単語数のカウントについて教えてください

["Hiroaki Mita" <mita@xxxxxxxxxxxxxxxxx>]

はじめまして、見田と申します。

基本的なことですみません。
リージョン内の文字数または単語数を調べたいのですが、
そういうlispファイルは存在していますでしょうか？
もしかしたら標準の機能であるのかもしれませんが、見つけられませんでした。
教えて頂けると幸いです。よろしくお願いします。

私はemacs,mule,meadowと渡り歩いて最後にxyzzyにたどりついた者です。
現在使っているのは xyzzy 0.2.1.169 です。
lispはほどんどわからないので、皆様の作品を感謝しつつ利用させて頂いておりま
す。
蛇足と思いますが、meadowで使っていたlispを最後に載せておきます。
xyzzyに、これに相当するものが存在しないのであれば、
どなたか修正していただけると大変助かります。

今後ともよろしくお願いします。
それでは。

 --------------------------------------------

(defun count-words-buffer ()
  (interactive)
  (save-excursion
  (let ((count 0))
    (goto-char (point-min))
    (while (< (point) (point-max))
      (forward-word 1)
      (setq count (1+ count)))
    (message "buffer contained %d words." count))))

(defun count-words-region (start end)
  (interactive "r")
  (save-excursion
  (let ((count 0))
    (goto-char start)
    (while (< (point) end )
      (forward-word 1)
      (setq count (1+ count)))
    (message "buffer contained %d words." count))))

(defun count-char-buffer ()
  (interactive)
  (save-excursion
  (let ((count 0))
    (goto-char (point-min))
    (while (< (point) (point-max))
      (forward-char 1)
      (setq count (1+ count)))
    (message "buffer contained %d  characters." count))))

(defun count-char-region (start end)
  (interactive "r")
  (save-excursion
  (let ((count 0))
    (goto-char start)
    (while (< (point) end )
      (forward-char 1)
      (setq count (1+ count)))
    (message "buffer contained %d characters." count))))

 --------------------------------