From fc8e375b9bd2685690e6ec9f0cc6ed078a6e938f Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Thu, 6 Oct 2022 13:43:46 +0200
Subject: [PATCH] Begin messages about executing code blocks with a capital
 letter

lisp/ob-awk.el (org-babel-expand-body:awk):
lisp/ob-core.el (org-babel-execute-src-block):
lisp/ob-groovy.el (org-babel-execute:groovy):
lisp/ob-maxima.el (org-babel-execute:maxima):
lisp/ob-sed.el (org-babel-execute:sed):
Begin message with capital letter.

By Emacs' convention all messages should begin with a capital letter.
---
 lisp/ob-awk.el    | 2 +-
 lisp/ob-core.el   | 2 +-
 lisp/ob-groovy.el | 2 +-
 lisp/ob-maxima.el | 2 +-
 lisp/ob-sed.el    | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/ob-awk.el b/lisp/ob-awk.el
index e2dfb0c9b..1db9c6b00 100644
--- a/lisp/ob-awk.el
+++ b/lisp/ob-awk.el
@@ -55,7 +55,7 @@
 (defun org-babel-execute:awk (body params)
   "Execute a block of Awk code with org-babel.
 This function is called by `org-babel-execute-src-block'."
-  (message "executing Awk source code block")
+  (message "Executing Awk source code block")
   (let* ((result-params (cdr (assq :result-params params)))
          (cmd-line (cdr (assq :cmd-line params)))
          (in-file (cdr (assq :in-file params)))
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 27947111f..18722d141 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -791,7 +791,7 @@ guess will be made."
 		 result exec-start-time)
 	    (unless (fboundp cmd)
 	      (error "No org-babel-execute function for %s!" lang))
-	    (message "executing %s %s %s..."
+	    (message "Executing %s %s %s..."
 		     (capitalize lang)
                      (pcase executor-type
                        ('src-block "code block")
diff --git a/lisp/ob-groovy.el b/lisp/ob-groovy.el
index 426eaacdc..f1689ef12 100644
--- a/lisp/ob-groovy.el
+++ b/lisp/ob-groovy.el
@@ -52,7 +52,7 @@ parameters may be used, like groovy -v"
 (defun org-babel-execute:groovy (body params)
   "Execute a block of Groovy code with org-babel.
 This function is called by `org-babel-execute-src-block'."
-  (message "executing Groovy source code block")
+  (message "Executing Groovy source code block")
   (let* ((processed-params (org-babel-process-params params))
          (session (org-babel-groovy-initiate-session (nth 0 processed-params)))
          (result-params (nth 2 processed-params))
diff --git a/lisp/ob-maxima.el b/lisp/ob-maxima.el
index 1a944376e..ada98bae8 100644
--- a/lisp/ob-maxima.el
+++ b/lisp/ob-maxima.el
@@ -76,7 +76,7 @@
 (defun org-babel-execute:maxima (body params)
   "Execute a block of Maxima entries with org-babel.
 This function is called by `org-babel-execute-src-block'."
-  (message "executing Maxima source code block")
+  (message "Executing Maxima source code block")
   (let ((result-params (split-string (or (cdr (assq :results params)) "")))
 	(result
 	 (let* ((cmdline (or (cdr (assq :cmdline params)) ""))
diff --git a/lisp/ob-sed.el b/lisp/ob-sed.el
index ecebef925..f9ea2ac0c 100644
--- a/lisp/ob-sed.el
+++ b/lisp/ob-sed.el
@@ -65,7 +65,7 @@
 BODY is the source inside a sed source block and PARAMS is an
 association list over the source block configurations.  This
 function is called by `org-babel-execute-src-block'."
-  (message "executing sed source code block")
+  (message "Executing sed source code block")
   (let* ((result-params (cdr (assq :result-params params)))
          (cmd-line (cdr (assq :cmd-line params)))
          (in-file (cdr (assq :in-file params)))