浏览代码

Add highlight-region-text

master
10sr 6 年前
父节点
当前提交
80f8901b85
签署人:: 10sr GPG 密钥 ID: 7BEC428194130EB2
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. +8
    -0
      emacs.el

+ 8
- 0
emacs.el 查看文件

@@ -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))


正在加载...
取消
保存