# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1270511064 -10800
# Node ID 1479a3d1e0f3eb57397b43f673076e2fba81e10e
# Parent  45b05d993766e010f2b8d957466d9a854b663574
Scrolling commands which scroll a line instead of full screen..
http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01452.html

* simple.el (scroll-up-line, scroll-down-line): New commands.
Put property isearch-scroll=t on them.

* emulation/ws-mode.el (scroll-down-line, scroll-up-line):
Remove commands.

diff -r 45b05d993766 -r 1479a3d1e0f3 etc/NEWS
--- a/etc/NEWS	Tue Apr 06 02:38:53 2010 +0300
+++ b/etc/NEWS	Tue Apr 06 02:44:24 2010 +0300
@@ -69,6 +69,9 @@
 (bound to [next] and [prior]) does not signal errors at top/bottom
 of buffer at first key-press (instead moves to top/bottom of buffer).
 
+** New scrolling commands `scroll-up-line' and `scroll-down-line'
+scroll a line instead of full screen.
+
 
 * Editing Changes in Emacs 24.1
 
diff -r 45b05d993766 -r 1479a3d1e0f3 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Apr 06 02:38:53 2010 +0300
+++ b/lisp/ChangeLog	Tue Apr 06 02:44:24 2010 +0300
@@ -1,3 +1,14 @@
+2010-04-05  Juri Linkov  <juri@jurta.org>
+
+	Scrolling commands which scroll a line instead of full screen.
+	http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01452.html
+
+	* simple.el (scroll-up-line, scroll-down-line): New commands.
+	Put property isearch-scroll=t on them.
+
+	* emulation/ws-mode.el (scroll-down-line, scroll-up-line):
+	Remove commands.
+
 2010-04-05  Juri Linkov  <juri@jurta.org>
 
 	Scrolling commands which does not signal errors at top/bottom.
diff -r 45b05d993766 -r 1479a3d1e0f3 lisp/emulation/ws-mode.el
--- a/lisp/emulation/ws-mode.el	Tue Apr 06 02:38:53 2010 +0300
+++ b/lisp/emulation/ws-mode.el	Tue Apr 06 02:44:24 2010 +0300
@@ -339,16 +339,6 @@
        (+ left-margin
 	  (/ (- fill-column left-margin line-length) 2))))))
 
-(defun scroll-down-line ()
-  "Scroll one line down."
-  (interactive)
-  (scroll-down 1))
-
-(defun scroll-up-line ()
-  "Scroll one line up."
-  (interactive)
-  (scroll-up 1))
-
 ;;;;;;;;;;;
 ;; wordstar special variables:
 
diff -r 45b05d993766 -r 1479a3d1e0f3 lisp/simple.el
--- a/lisp/simple.el	Tue Apr 06 02:38:53 2010 +0300
+++ b/lisp/simple.el	Tue Apr 06 02:44:24 2010 +0300
@@ -4800,6 +4800,26 @@
 
 (put 'scroll-down-command 'isearch-scroll t)
 
+;;; Scrolling commands which scroll a line instead of full screen.
+
+(defun scroll-up-line (&optional arg)
+  "Scroll text of selected window upward ARG lines; or one line if no ARG.
+If ARG is omitted or nil, scroll upward by one line.
+This is different from `scroll-up-command' that scrolls a full screen."
+  (interactive "p")
+  (scroll-up (or arg 1)))
+
+(put 'scroll-up-line 'isearch-scroll t)
+
+(defun scroll-down-line (&optional arg)
+  "Scroll text of selected window down ARG lines; or one line if no ARG.
+If ARG is omitted or nil, scroll down by one line.
+This is different from `scroll-down-command' that scrolls a full screen."
+  (interactive "p")
+  (scroll-down (or arg 1)))
+
+(put 'scroll-down-line 'isearch-scroll t)
+
 
 (defun scroll-other-window-down (lines)
   "Scroll the \"other window\" down.