(comint-bol): Use `forward-line 0' instead of calling beginning-of-line

  with inhibit-field-text-motion bound.

diff --git a/lisp/comint.el b/lisp/comint.el
index c7762678dd49a4914f602b5d60aa323d3a650bef..da9e279774973f0f6245dc710a9fba4f61082801 100644 (file)
--- 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