Soma números na região

Como posso somar um conjunto de números intercalados com texto na região (não uma região retangular). Por exemplo, se a região contiver este texto:

Widgets 234
Sprockets 44
Nubbins 12
Fork handles 4
4 Candles

Estou procurando um comando que reportará 298 de alguma forma (298 = 234 + 44 + 12 + 4 + 4) - acho que ecoando isso na área de mensagem ou inserindo-o no buffer.

Idealmente, ele lidaria com números inteiros e números de ponto flutuante.

Aqui está um:

(require 'cl-lib)
(defun sum-numbers-in-region (start end)
  (interactive "r")
  (message "%s"
           (cl-reduce #'+
                      (split-string (buffer-substring start
                                                      end))
                      :key #'string-to-number)))

Por usar string-to-number, ele tratará o token "1hello" como o número "1", mas não tratará "hello2" como um número. Também funciona com decimais (por exemplo, 2.4).

Especificamente para o seu caso, supondo que este seja o texto inteiro do buffer:

1. M-xreplace-regexpRET[^0-9]+RET+RET
2. C-x h - selecionar tudo.
3. C-x * e (verifique se não há sinal de mais à direita) .

Não conheço um comando interno que faça isso, mas você pode criar o seu:

(defun sum-region-nums (beg end)
  (interactive "r")
  (save-excursion
    (goto-char beg)
    (let (nums total)
      (while (re-search-forward "\\b[0-9]+\\(\\.[0-9]+\\)*\\b" end t)
        (push (string-to-number (match-string-no-properties 0))
              nums))
      (setq total (apply #'+ nums))
      (message "%s" total)
      total)))