From 1cc9bc49d80b832999f941090aec4dc458d32b51 Mon Sep 17 00:00:00 2001
From: Miles Bader <miles@gnu.org>
Date: Mon, 14 Aug 2000 12:56:03 +0000
Subject: [PATCH] (comint-bol): Use `forward-line 0' instead of calling
 beginning-of-line   with inhibit-field-text-motion bound.

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

diff --git a/lisp/comint.el b/lisp/comint.el
index c7762678dd4..da9e2797749 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1740,9 +1740,8 @@ prompt skip is done by skipping text matching the regular expression
 `comint-prompt-regexp', a buffer local variable."
   (interactive "P")
   (if arg
-      ;; Disregard prompt
-      (let ((inhibit-field-text-motion t))
-	(beginning-of-line))
+      ;; Unlike `beginning-of-line', forward-line ignores field boundaries
+      (forward-line 0)
     (goto-char (comint-line-beginning-position))))
 
 ;; These three functions are for entering text you don't want echoed or
-- 
2.39.2