Suggest region contents in highlight-regexp when region active

* lisp/hi-lock.el (hi-lock-face-buffer): Use the region in the prompt if the region is active in transient-mark-mode (bug#43641).
2020-09-28 14:16:22 +02:00 · 2020-09-28 14:16:22 +02:00 · 27e1649977
commit 27e1649977
parent 3a95f4fc12
1 changed files with 7 additions and 1 deletions
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@ -484,7 +484,13 @@ the major mode specifies support for Font Lock."
  (interactive
   (list
    (hi-lock-regexp-okay
-     (read-regexp "Regexp to highlight" 'regexp-history-last))
+     (read-regexp "Regexp to highlight"
+                  (if (use-region-p)
+                      (prog1
+                          (buffer-substring (region-beginning)
+                                            (region-end))
+                        (deactivate-mark))
+                    'regexp-history-last)))
    (hi-lock-read-face-name)
    current-prefix-arg))
  (or (facep face) (setq face 'hi-yellow))