;; Maintainer: Ian Kelling <ian@iankelling.org>
;; 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
;; 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
(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)