escape backslashes too

melisgl · Jul 13, 2023 · b13462a · b13462a
1 parent bf25c47
commit b13462a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/document/markdown.lisp b/src/document/markdown.lisp
@@ -62,7 +62,7 @@
       (format stream "*~A*" string)))
 
 (defun markdown-special-inline-char-p (char)
-  (member char '(#\* #\_ #\` #\[)))
+  (member char '(#\\ #\* #\_ #\` #\[)))
 
 (defun markdown-special-html-char-p (char)
   (member char '(#\< #\&)))
@@ -74,7 +74,7 @@
                                           (escape-html t) (escape-block t))
   "Backslash escape markdown constructs in STRING.
 
-  - If ESCPAPE-INLINE, then escape ``*_`[`` characters.
+  - If ESCPAPE-INLINE, then escape ``*_`[\\`` characters.
 
   - If ESCPAPE-HTML, then escape `<&` characters.