branch: elpa/annotate
commit 42587e06230905cb371831aea09c88a1554ec661
Author: cage <cage@localhost>
Commit: cage <cage@invalid>

    - added checks for 'annotate-use-messages' value when trying to print a 
message.
---
 annotate.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/annotate.el b/annotate.el
index 198fe7a392..21e76c6cf9 100644
--- a/annotate.el
+++ b/annotate.el
@@ -732,7 +732,8 @@ specified by `from' and `to'."
                   (progn
                     (goto-char annotation-last-end)
                     (annotate-goto-next-annotation :startingp nil))
-                (message "This is the last annotation.")))
+                (when annotate-use-messages
+                  (message "This is the last annotation."))))
           (let ((next-annotation (annotate-next-annotation-starts (point))))
             (when next-annotation
               (goto-char (overlay-start next-annotation)))))
@@ -754,7 +755,8 @@ specified by `from' and `to'."
                   (progn
                     (goto-char (1- annotation-first-start))
                     (annotate-goto-previous-annotation :startingp nil))
-                (message "This is the first annotation.")))
+                (when annotate-use-messages
+                  (message "This is the first annotation."))))
           (let ((previous-annotation (annotate-previous-annotation-ends 
(point))))
             (when previous-annotation
               (goto-char (1- (overlay-end previous-annotation))))))
@@ -3071,7 +3073,8 @@ code, always use load files from trusted sources!"
                                 (annotate-mode  1)
                                 (when (not buffer-was-modified-p)
                                   (set-buffer-modified-p nil)))))))
-              (message "Load aborted by the user")))
+              (when annotate-use-messages
+                (message "Load aborted by the user"))))
         (signal 'annotate-db-file-not-found (list new-db))))))
 
 ;; end of switching database

Reply via email to