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