From 41752cf1c4424fbd1136f578c50c83289450f31d Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Sun, 4 Jul 1993 21:02:21 +0000
Subject: [PATCH] * comint.el (comint-prompt-regexp): Double the backslashes in
 the 	sample prompt regexps, so that they print properly when unquoted.

---
 lisp/comint.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/comint.el b/lisp/comint.el
index e494e706195..db45520f597 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -128,8 +128,8 @@ Defaults to \"^\", the null string at BOL.
 
 Good choices:
   Canonical Lisp: \"^[^> ]*>+:? *\" (Lucid, franz, kcl, T, cscheme, oaklisp)
-  Lucid Common Lisp: \"^\\(>\\|\\(->\\)+\\) *\"
-  franz: \"^\\(->\\|<[0-9]*>:\\) *\"
+  Lucid Common Lisp: \"^\\\\(>\\\\|\\\\(->\\\\)+\\\\) *\"
+  franz: \"^\\\\(->\\\\|<[0-9]*>:\\\\) *\"
   kcl: \"^>+ *\"
   shell: \"^[^#$%>]*[#$%>] *\"
   T: \"^>+ *\"
-- 
2.39.5