From 81a0a2681d063e0282f91ac91883ca2a06c529db Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 25 Oct 2011 08:33:31 -0400
Subject: [PATCH] * comint.el (comint-get-old-input-default): Fix thinko in
 last change.

Fixes: debbugs:9865
---
 lisp/comint.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/comint.el b/lisp/comint.el
index dc3cdd9fa7a..b91b82adb21 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2152,7 +2152,7 @@ If `comint-use-prompt-regexp' is non-nil, then return
 the current line with any initial string matching the regexp
 `comint-prompt-regexp' removed."
   (let (bof)
-    (if (and comint-use-prompt-regexp
+    (if (and (not comint-use-prompt-regexp)
              ;; Make sure we're in an input rather than output field.
              (null (get-char-property (setq bof (field-beginning)) 'field)))
 	(field-string-no-properties bof)
-- 
2.39.5