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 --git a/etc/NEWS b/etc/NEWS
index 7c5f6b79b1ab24b8b73b8b741348db652081fa54..eb4c326ee8a61563d4c7fa4e76248f33f397b698 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -69,6 +69,9 @@ Use `set-scroll-bar-mode' to change this.
 (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.
+
 \f
 * Editing Changes in Emacs 24.1
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f343754e3d29c366db8273a561523ce859a1616b..a9d95d9dd3d91fe317dab22883d4d2a3b2b320d7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index ed8b55629999aa68b2b432646e9c11855660c3ec..220ac7d67dc5731a67abbcebbdfcc78fe30912bf 100644 (file)
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -339,16 +339,6 @@ the distance between the end of the text and `fill-column'."
        (+ 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 --git a/lisp/simple.el b/lisp/simple.el
index 7616d19057a156c8625e5292d53a8f5c67d621cc..66ea9ebebd9cd9b5d51b9363e99fc66ed41cd126 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4800,6 +4800,26 @@ If ARG is the atom `-', scroll upward by nearly full screen."
 
 (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)
+
 \f
 (defun scroll-other-window-down (lines)
   "Scroll the \"other window\" down.