Browse Source

Add highlight-region-text

master
10sr 6 years ago
parent
commit
80f8901b85
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 8 additions and 0 deletions
  1. +8
    -0
      emacs.el

+ 8
- 0
emacs.el View File

@@ -639,6 +639,14 @@ found, otherwise returns nil."
;; M-x highlight-* to highlight things
(global-hi-lock-mode 1)

(unless (fboundp 'highlight-region-text)
(defun highlight-region-text (beg end)
"Highlight text between BEG and END."
(interactive "r")
(highlight-regexp (regexp-quote (buffer-substring-no-properties beg
end)))
(setq deactivate-mark t)))

(when (safe-require-or-eval 'auto-highlight-symbol)
(set-variable 'ahs-idle-interval 0.6)
(global-auto-highlight-symbol-mode 1))


Loading…
Cancel
Save