[nongnu] elpa/aidermacs 58b3fc29f5 458/466: Match space before ```

[ELPA Syncer]

branch: elpa/aidermacs
commit 58b3fc29f5046c195951a6315651fa0fc14511ae
Author: Mingde (Matthew) Zeng <matthewzmd@posteo.net>
Commit: Mingde (Matthew) Zeng <matthewzmd@posteo.net>

    Match space before ```
    
    Signed-off-by: Mingde (Matthew) Zeng <matthewzmd@posteo.net>
---
 aidermacs-backend-comint.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/aidermacs-backend-comint.el b/aidermacs-backend-comint.el
index ff7b2dfd04..4b73907d4b 100644
--- a/aidermacs-backend-comint.el
+++ b/aidermacs-backend-comint.el
@@ -72,7 +72,7 @@ This allows for multi-line input without sending the command."
     ("^\\([0-9]+\\). " 0 font-lock-constant-face)
     ("^>>>>>>> REPLACE" 0 'aidermacs-search-replace-block t)
     ("^<<<<<<< SEARCH" 0 'aidermacs-search-replace-block t)
-    ("^\\(```\\)\\([^[:space:]]*\\)" (1 'shadow t) (2 font-lock-builtin-face 
t))
+    ("^[:space:]*\\(```\\)\\([^[:space:]]*\\)" (1 'shadow t) (2 
font-lock-builtin-face t))
     ("^=======$" 0 'aidermacs-search-replace-block t))
   "Font lock keywords for aidermacs buffer.")
 
@@ -247,7 +247,7 @@ _OUTPUT is the text to be processed."
    ;; check if the block has a language id
    (when (save-excursion
            (end-of-line)
-           (re-search-backward "^``` *\\([^[:space:]]+\\)" 
(line-beginning-position -1) t))
+           (re-search-backward "^[:space:]*``` *\\([^[:space:]]+\\)" 
(line-beginning-position -1) t))
      (let* ((lang (downcase (match-string 1)))
             (mode (map-elt aidermacs-language-name-map lang lang)))
        (intern-soft (concat mode "-mode"))))