浏览代码

Remove highlight-mark

master
10sr 4 年前
父节点
当前提交
39b7b10f9a
签署人:: 10sr GPG 密钥 ID: C384BB17CBB19347
共有 1 个文件被更改,包括 0 次插入17 次删除
  1. +0
    -17
      emacs.el

+ 0
- 17
emacs.el 查看文件

@@ -2937,23 +2937,6 @@ Any output will be written to current buffer."
)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; highlight-mark

(defvar-local highlight-mark-last-mark-position nil
"Last mark object.")

(defun highlight-mark-post-command ()
"Update highlight mark on mark change."
(unless (eq (mark t)
highlight-mark-last-mark-position)
(setq highlight-mark-last-mark-position (mark t))
(message "Mark changed! %S"
highlight-mark-last-mark-position)))

(add-hook 'post-command-hook
'highlight-mark-post-command)

;;;;;;;;;;;;;;
;; mmv
;; https://www.emacswiki.org/emacs/MakingMarkVisible


正在加载...
取消
保存