# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1207167321 0
# Node ID 63d60f1f216ae0f4e464a7312f3fe5cc622b2792
# Parent  b75140e5e26779300edef76fa8fc5f76f6897175
(Fforward_char, Fbackward_char, Fforward_line)
(Fbeginning_of_line, Fend_of_line): Add ^ interactive spec.

diff -r b75140e5e267 -r 63d60f1f216a src/cmds.c
--- a/src/cmds.c	Wed Apr 02 20:15:11 2008 +0000
+++ b/src/cmds.c	Wed Apr 02 20:15:21 2008 +0000
@@ -56,7 +56,7 @@
   return make_number (PT + XINT (n));
 }
 
-DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "p",
+DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "^p",
        doc: /* Move point right N characters (left if N is negative).
 On reaching end of buffer, stop and signal error.  */)
      (n)
@@ -92,7 +92,7 @@
   return Qnil;
 }
 
-DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "p",
+DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "^p",
        doc: /* Move point left N characters (right if N is negative).
 On attempt to pass beginning or end of buffer, stop and signal error.  */)
      (n)
@@ -107,7 +107,7 @@
   return Fforward_char (n);
 }
 
-DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "p",
+DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "^p",
        doc: /* Move N lines forward (backward if N is negative).
 Precisely, if point is on line I, move to the start of line I + N.
 If there isn't room, go as far as possible (no error).
@@ -153,7 +153,7 @@
   return make_number (count <= 0 ? - shortage : shortage);
 }
 
-DEFUN ("beginning-of-line", Fbeginning_of_line, Sbeginning_of_line, 0, 1, "p",
+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.
@@ -178,7 +178,7 @@
   return Qnil;
 }
 
-DEFUN ("end-of-line", Fend_of_line, Send_of_line, 0, 1, "p",
+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.