Cover the active region with a character

Question

Called with an active region, it will replace all spaces in that region with the character corresponding to the subsequent key press. E.g., if cover-active-region is bound to C-c /, then C-c / h will replace all spaces (not newlines or anything) in the active region with the letter h.

I suppose this is a simple extension of a command that replace all characters in active region (not just whitespace).

In any case, I'm sure there is a function or idiom for this in Emacs, but I can't seem to find it.

Please explain why the question has been voted down if you're going to vote down. — Dodgie, Jan 27 '18 at 04:40
@Drew, I figured, otherwise you would have voted down before I made the correction. Unless you really hated my correction?? — Dodgie, Jan 27 '18 at 17:57

score 3 · Accepted Answer · answered Jan 27 '18 at 04:19

(defun cover-active-region (beg end char)
  "Replace space with CHAR in the region."
  (interactive
   (if (use-region-p)
       (list
        (region-beginning)
        (region-end)
        (read-char))
     (user-error "No useable region")))
  (insert
   (replace-regexp-in-string
    " "
    (string char)
    (delete-and-extract-region beg end))))

Cover the active region with a character

1 Answers1