Emacs中计算选定区域中、英文个数

(defun count-ce-word (beg end)
  "Count Chinese and English words in marked region."
  (interactive "r")
  (let* ((cn-word 0)
         (en-word 0)
         (total-word 0)
         (total-byte 0))
    (setq cn-word (count-matches "//cc" beg end)
          en-word (count-matches "//w+//W" beg end)
          total-word (+ cn-word en-word)
          total-byte (+ cn-word (abs (- beg end))))
    (message (format "总计: %d (汉字: %d, 英文: %d) , %d 字母."
                     total-word cn-word en-word total-byte))))