branch: elpa/magit
commit 1836c8d8413c743606402646179601471a0e499d
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    Use magit-msg more
---
 lisp/magit-blame.el   | 15 +++++++--------
 lisp/magit-process.el |  5 ++---
 2 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/lisp/magit-blame.el b/lisp/magit-blame.el
index 629d9811aff..42e8f28b350 100644
--- a/lisp/magit-blame.el
+++ b/lisp/magit-blame.el
@@ -742,14 +742,13 @@ modes is toggled, then this mode also gets toggled 
automatically.
 
 (defun magit-blame-maybe-show-message ()
   (when (magit-blame--style-get 'show-message)
-    (let ((message-log-max 0))
-      (if-let ((msg (cdr (assoc "summary"
-                                (gethash (oref (magit-current-blame-chunk)
-                                               orig-rev)
-                                         magit-blame-cache)))))
-          (progn (set-text-properties 0 (length msg) nil msg)
-                 (message "%S" msg))
-        (message "Commit data not available yet.  Still blaming.")))))
+    (if-let ((msg (cdr (assoc "summary"
+                              (gethash (oref (magit-current-blame-chunk)
+                                             orig-rev)
+                                       magit-blame-cache)))))
+        (progn (set-text-properties 0 (length msg) nil msg)
+               (magit-msg "%S" msg))
+      (magit-msg "Commit data not available yet.  Still blaming."))))
 
 ;;; Commands
 
diff --git a/lisp/magit-process.el b/lisp/magit-process.el
index 91c90def606..e724bbd9b0b 100644
--- a/lisp/magit-process.el
+++ b/lisp/magit-process.el
@@ -539,11 +539,10 @@ current when this function was called (if it is a Magit 
buffer
 and still alive), as well as the respective Magit status buffer.
 
 See `magit-start-process' for more information."
-  (let ((message-log-max nil))
-    (message "Running %s %s" (magit-git-executable)
+  (magit-msg "Running %s %s" (magit-git-executable)
              (let ((m (string-join (flatten-tree args) " ")))
                (remove-list-of-text-properties 0 (length m) '(face) m)
-               m)))
+               m))
   (magit-start-git nil args))
 
 (defun magit-run-git-with-editor (&rest args)

Reply via email to