leisti

;;;; Make the mark always visible ('mmv' means 'make mark visible').
;;;; Based on code written by Patrick Gundlach. Fixed with help from Stefan.

(defface mmv-face
  '((t :background "red"))
  "Face used for showing the mark's position.")

(defvar-local mmv-mark-overlay nil "Overlay for showing the mark's position.")

(defun mmv-show-mark (&rest _)