[elpa] externals/ement 489a683f64 3/4: Add: (ement-message)

[ELPA Syncer]

branch: externals/ement
commit 489a683f64cd7a504a3b5fd60087859d001ec209
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Add: (ement-message)
---
 ement-lib.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ement-lib.el b/ement-lib.el
index a80377c01f..2818ec7991 100644
--- a/ement-lib.el
+++ b/ement-lib.el
@@ -319,6 +319,11 @@ If DELETE (interactively, with prefix), delete it."
 
 ;; These functions could reasonably be called by code in other packages.
 
+(defun ement-message (format-string &rest args)
+  "Call `message' on FORMAT-STRING prefixed with \"Ement: \"."
+  ;; TODO: Use this function everywhere we use `message'.
+  (apply #'message (concat "Ement: " format-string) args))
+
 (cl-defun ement-upload (session &key data filename then else
                                 (content-type "application/octet-stream"))
   "Upload DATA with FILENAME to content repository on SESSION.