Переглянути джерело

Add highlight-mark stub

master
10sr 4 роки тому
джерело
коміт
d952d5be57
Підписано: 10sr Ідентифікатор GPG ключа: C384BB17CBB19347
1 змінених файлів з 13 додано та 0 видалено
  1. +13
    -0
      emacs.el

+ 13
- 0
emacs.el Переглянути файл

@@ -2903,6 +2903,19 @@ 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)


;; Local Variables:


Завантаження…
Відмінити
Зберегти