リージョンのなかの数値だけを足し合わせる関数

必要だったので作ってみた。リストの要素を足し合わせるような関数は無いはずがないと思うのだけど、探せなかったので適当に作った。

(defun my-sum-num-region (beg end)
  "リージョン内にある数字のみを足し合わせる"
  (interactive "r")
  (message (number-to-string
			(my-calc-list
			 '+
			 (mapcar 'string-to-number 
					 (split-string (buffer-substring beg end) "[^ 0-9 \\.]"))))))

(defun my-calc-list (ope lis)
  "リストの要素（数値）を演算する"
  (apply ope lis))