;; Copyright (C) 2014 by Ian Kelling
;; Maintainer: Ian Kelling <ian@iankelling.org>
+;; Mailing list: https://lists.iankelling.org/listinfo/visible-mark
;; Author: Ian Kelling <ian@iankelling.org>
+;; Author: Yann Hodique
;; Author: MATSUYAMA Tomohiro <t.matsuyama.pub@gmail.com>
;; Author: John Foerch <jjfoerch@earthlink.net>
;; Keywords: marking color faces
;; '((((type tty) (class mono)))
;; (t (:background "magenta"))) "")
;; (setq visible-mark-max 2)
-;; (setq visible-mark-faces `(visible-mark-face1 my-visible-mark-face2))
+;; (setq visible-mark-faces `(visible-mark-face1 visible-mark-face2))
;;
;;
;; Additional useful functions like unpoping the mark are at
;; http://www.emacswiki.org/emacs/MarkCommands
;; and http://www.emacswiki.org/emacs/VisibleMark
-;;; Pre-git history:
-;;
-;; 2008-02-21 MATSUYAMA Tomohiro <t.matsuyama.pub@gmail.com>
-;;
-;; * visible-mark.el: Added function to inhibit trailing overlay.
-;;
-;; 2008-01-31 MATSUYAMA Tomohiro <t.matsuyama.pub@gmail.com>
-;;
-;; * visible-mark.el: Create formal emacs lisp file from
-;; http://www.emacswiki.org/cgi-bin/wiki/VisibleMark.
-;; Yann Hodique and Jorgen Schäfer are original authors.
-;; Added function to make multiple marks visible.
-;;
-;;
;; Known bugs
;;
;; Observed in circe, when the buffer has a right margin, and there
;; gets styled with the mark's face. May also happen for left margins, but
;; haven't tested yet.
;;
-;; Patches / pull requests welcome.
+;; Patches / pull requests / feedback welcome.
;;; Code:
(t t))
(visible-mark-mode t)))
+;;;###autoload
(define-minor-mode visible-mark-mode
"A mode to make the mark visible."
nil nil nil
(setq visible-mark-overlays nil)
(remove-hook 'post-command-hook 'visible-mark-move-overlays t)))
+;;;###autoload
(define-global-minor-mode
global-visible-mark-mode visible-mark-mode visible-mark-mode-maybe
:group 'visible-mark)