| @@ -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 | ;; mmv | ||||
| ;; https://www.emacswiki.org/emacs/MakingMarkVisible | ;; https://www.emacswiki.org/emacs/MakingMarkVisible | ||||