From: Miles Bader <miles@gnu.org>
Date: Fri, 19 Oct 2001 06:19:07 +0000 (+0000)
Subject: (Fbeginning_of_line, Fend_of_line): Clarify interaction with fields and
X-Git-Tag: ttn-vms-21-2-B4~19361
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8abc9869bbfe52bd187c54fcc0e9771e844fe176;p=emacs.git

(Fbeginning_of_line, Fend_of_line): Clarify interaction with fields and
suggest using `forward-line' to avoid them.
---

diff --git a/src/cmds.c b/src/cmds.c
index f938cc133db..791b410eb5b 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -1,5 +1,5 @@
 /* Simple built-in editing commands.
-   Copyright (C) 1985, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1985, 93, 94, 95, 96, 97, 1998, 2001 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -150,15 +150,19 @@ With positive N, a non-empty line at the end counts as one line\n\
   return make_number (count <= 0 ? - shortage : shortage);
 }
 
-DEFUN ("beginning-of-line", Fbeginning_of_line, Sbeginning_of_line,
-  0, 1, "p",
-  "Move point to beginning of current line.\n\
-With argument N not nil or 1, move forward N - 1 lines first.\n\
-If point reaches the beginning or end of buffer, it stops there.\n\
-This command does not move point across a field boundary\n\
-unless it would move beyond there to a different line.\n\
-If N is nil or 1, and point starts at a field boundary, point does not move.")
-  (n)
+DEFUN ("beginning-of-line", Fbeginning_of_line, Sbeginning_of_line, 0, 1, "p",
+       doc: /* Move point to beginning of current line.
+With argument N not nil or 1, move forward N - 1 lines first.
+If point reaches the beginning or end of buffer, it stops there.
+
+This command does not move point across a field boundary unless doing so
+would move beyond there to a different line; If N is nil or 1, and point
+starts at a field boundary, point does not move.  To ignore field
+boundaries, either bind `inhibit-field-text-motion' to t, or use the
+`forward-line' function instead.  For instance, `(forward-line 0)' does
+the same thing as `(beginning-of-line)', except that it ignores field
+boundaries.  */) 
+     (n)
      Lisp_Object n;
 {
   if (NILP (n))
@@ -171,15 +175,16 @@ If N is nil or 1, and point starts at a field boundary, point does not move.")
   return Qnil;
 }
 
-DEFUN ("end-of-line", Fend_of_line, Send_of_line,
-  0, 1, "p",
-  "Move point to end of current line.\n\
-With argument N not nil or 1, move forward N - 1 lines first.\n\
-If point reaches the beginning or end of buffer, it stops there.\n\
-This command does not move point across a field boundary\n\
-unless it would move beyond there to a different line.\n\
-If N is nil or 1, and point starts at a field boundary, point does not move.")
-  (n)
+DEFUN ("end-of-line", Fend_of_line, Send_of_line, 0, 1, "p",
+       doc: /* Move point to end of current line.
+With argument N not nil or 1, move forward N - 1 lines first.
+If point reaches the beginning or end of buffer, it stops there.
+
+This command does not move point across a field boundary unless doing so
+would move beyond there to a different line; if N is nil or 1, and
+point starts at a field boundary, point does not move.  To ignore field
+boundaries bind `inhibit-field-text-motion' to t.  */)
+     (n)
      Lisp_Object n;
 {
   if (NILP (n))