extract-regex

gistfile1.sls

(defun extract-regex (regexp)
  "Extracts all occurrences of regexp from the current buffer."
  (interactive "sRegexp for extraction: ")
  (setq result '())
  (save-excursion
    (beginning-of-buffer)
    (while (re-search-forward regexp nil t)
      (when (match-string 0)                              ; Got a match
        (setq result (cons (match-string 0) result)))))
  (let ((result-string (mapconcat 'identity result "\n")))
    (message result-string)
    result-string))