X-Git-Url: https://iankelling.org/git/?p=visible-mark;a=blobdiff_plain;f=visible-mark.el;h=27bc3c8075e14d66ce3511f57fa20c3dd6b79baf;hp=2e4f5aa246212d215b48ea4556306675cce1ba3c;hb=912c11d582f67d414ce2b8aa0286339dd82bf0d3;hpb=56b5dbcfe64efe4b1aee6c5e8b29edc22ccde3bf

diff --git a/visible-mark.el b/visible-mark.el
index 2e4f5aa..27bc3c8 100644
--- a/visible-mark.el
+++ b/visible-mark.el
@@ -3,7 +3,9 @@
 ;; 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
@@ -47,27 +49,13 @@
 ;;   '((((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
@@ -75,7 +63,7 @@
 ;; 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:
 
@@ -242,6 +230,7 @@ the last defined face will be reused."
          (t t))
     (visible-mark-mode t)))
 
+;;;###autoload
 (define-minor-mode visible-mark-mode
   "A mode to make the mark visible."
   nil nil nil
@@ -254,6 +243,7 @@ the last defined face will be reused."
     (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)