[nongnu] elpa/annotate 960b01db30 033/372: add variable for disabling minibuffer messages

[ELPA Syncer]

branch: elpa/annotate
commit 960b01db3025ffbe63f4a6def1ff2fd8544858d1
Author: Bastian <basti@bastibe.de>
Commit: Bastian <basti@bastibe.de>

    add variable for disabling minibuffer messages
---
 annotate.el | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/annotate.el b/annotate.el
index e2b1afdda2..e34ea72487 100644
--- a/annotate.el
+++ b/annotate.el
@@ -5,7 +5,7 @@
 ;; Maintainer: Bastian Bechtold
 ;; URL: https://github.com/bastibe/annotate.el
 ;; Created: 2015-06-10
-;; Version: 0.2.2
+;; Version: 0.2.3
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -46,7 +46,7 @@
 ;;;###autoload
 (defgroup annotate nil
   "Annotate files without changing them."
-  :version "0.2.2"
+  :version "0.2.3"
   :group 'text)
 
 ;;;###autoload
@@ -92,6 +92,12 @@
   :type 'number
   :group 'annotate)
 
+;;;###autoload
+(defcustom annotate-use-messages t
+  "Whether status messages may appear in the minibuffer."
+  :type 'boolean
+  :group 'annotate)
+
 (defun annotate-initialize ()
   "Load annotations and set up save hook."
   (annotate-load-annotations)
@@ -126,7 +132,8 @@
             (push (cons (buffer-file-name) file-annotations)
                   all-annotations)))
     (annotate-dump-annotation-data all-annotations)
-    (message "Annotations saved.")))
+    (if annotate-use-messages
+        (message "Annotations saved."))))
 
 ;;;###autoload
 (defun annotate-export-annotations ()
@@ -275,7 +282,7 @@ annotation, and can be conveniently viewed in diff-mode."
     ;; remove empty annotations created by earlier bug:
     (setq annotations (remove-if (lambda (ann) (eq (nth 2 ann) nil))
                                  annotations))
-    (when (eq nil annotations)
+    (when (and (eq nil annotations) annotate-use-messages)
       (message "No annotations found."))
     (when (not (eq nil annotations))
       (save-excursion
@@ -294,7 +301,8 @@ annotation, and can be conveniently viewed in diff-mode."
                                  (1+ (point))
                                  'display
                                  (concat prefix text "\n"))))))
-      (message "Annotations loaded."))))
+      (if annotate-use-messages
+          (message "Annotations loaded.")))))
 
 ;;;###autoload
 (defun annotate-clear-annotations ()