# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 966257763 0
# Node ID bc1377250f7c8e07c0b788fcff42aedf4e5044a2
# Parent  59479ef35bf2adfb7c8923722bf5c0d37204b67d
(comint-bol): Use `forward-line 0' instead of calling beginning-of-line
  with inhibit-field-text-motion bound.

diff -r 59479ef35bf2 -r bc1377250f7c lisp/comint.el
--- a/lisp/comint.el	Mon Aug 14 12:45:50 2000 +0000
+++ b/lisp/comint.el	Mon Aug 14 12:56:03 2000 +0000
@@ -1740,9 +1740,8 @@
 `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