diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/hi-lock.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index c386b7c8012..1c55a23764d 100644 --- 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)) |