[xyzzy:07780] Re: 文字数を数えたい

[Takeuchi Teruaki <t_take@xxxxxxxxxxxx>]

竹内です。

早速、亀井さんのアドバイスを取り入れて書き直してみました。
長文の場合に一瞬「モタッ」とするのが改善されました。
ありがとうございます＞亀井さん

(defun count-char-from-point ()
  (interactive) (save-excursion
    (let ((p1 (point)) (p2 (point-max)))
      (setq parcnt
        (- (progn (goto-char p2) (current-line-number))
           (progn (goto-char p1) (current-line-number))))
        (message "~d paragraphs, ~d characters."
           parcnt (- p2 p1 parcnt)))))

----
竹内 輝昭
t_take@xxxxxxxxxxxx