# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1207167343 0
# Node ID 7a747c3c0def191f8273127481478bfb97818310
# Parent  45896a2e7bee047d7b0f7e60b00fcf420ebcffbc
(Fscroll_up, Fscroll_down, Fscroll_left)
(Fscroll_right): Add ^ interactive spec.

diff -r 45896a2e7bee -r 7a747c3c0def src/window.c
--- a/src/window.c	Wed Apr 02 20:15:32 2008 +0000
+++ b/src/window.c	Wed Apr 02 20:15:43 2008 +0000
@@ -5597,7 +5597,7 @@
   unbind_to (count, Qnil);
 }
 
-DEFUN ("scroll-up", Fscroll_up, Sscroll_up, 0, 1, "P",
+DEFUN ("scroll-up", Fscroll_up, Sscroll_up, 0, 1, "^P",
        doc: /* Scroll text of current window upward ARG lines.
 If ARG is omitted or nil, scroll upward by a near full screen.
 A near full screen is `next-screen-context-lines' less than a full screen.
@@ -5611,7 +5611,7 @@
   return Qnil;
 }
 
-DEFUN ("scroll-down", Fscroll_down, Sscroll_down, 0, 1, "P",
+DEFUN ("scroll-down", Fscroll_down, Sscroll_down, 0, 1, "^P",
        doc: /* Scroll text of current window down ARG lines.
 If ARG is omitted or nil, scroll down by a near full screen.
 A near full screen is `next-screen-context-lines' less than a full screen.
@@ -5717,7 +5717,7 @@
   return Qnil;
 }
 
-DEFUN ("scroll-left", Fscroll_left, Sscroll_left, 0, 2, "P\np",
+DEFUN ("scroll-left", Fscroll_left, Sscroll_left, 0, 2, "^P\np",
        doc: /* Scroll selected window display ARG columns left.
 Default for ARG is window width minus 2.
 Value is the total amount of leftward horizontal scrolling in
@@ -5747,7 +5747,7 @@
   return result;
 }
 
-DEFUN ("scroll-right", Fscroll_right, Sscroll_right, 0, 2, "P\np",
+DEFUN ("scroll-right", Fscroll_right, Sscroll_right, 0, 2, "^P\np",
        doc: /* Scroll selected window display ARG columns right.
 Default for ARG is window width minus 2.
 Value is the total amount of leftward horizontal scrolling in