Two improvements

Two improvements

[Chitale, Sandip V]

1. A function to dump the data matched by isearch-* family of functions.
This may be added to lisp/isearch.el.

(defun dump-match-data ()
  "Dump match data"
  (interactive)
  (with-output-to-temp-buffer "*match-data*"
    (dotimes (index (/ (length (match-data)) 2))
      (princ (format "[%d] = %s\n" index (match-string index)))
      )
    )
  )

2. A variant of the above to complement the re-builder functionality.
This may be added to lisp/emacs-lisp/re-builder.el.

(define-key reb-mode-map "\C-cm"    'reb-dump-match-data)

(defun reb-dump-match-data ()
  "Dump match data in buffer *match-data*"
  (interactive)
  (with-output-to-temp-buffer "*match-data*"
    (dotimes (index (/ (length (match-data)) 2))
      (princ (format 
	      "[%d]\t%s\n"
	      index
	      (match-string index
                            ;; prepend with a space to get around a bug
			    (concat " "
				    (with-current-buffer
reb-target-buffer (buffer-string))))))
      )
    )
  )