summaryrefslogtreecommitdiff
path: root/lisp/emulation
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2010-04-06 02:44:24 +0300
committerJuri Linkov <juri@jurta.org>2010-04-06 02:44:24 +0300
commit5a97d2da2c494cad346ee18dea5e207420c5a845 (patch)
tree90e0f340ebacda6e379cbc48d794878980658a2a /lisp/emulation
parent79ce172a464f2d5cced69f97fd86c4e03a0876a9 (diff)
downloademacs-5a97d2da2c494cad346ee18dea5e207420c5a845.tar.gz
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.
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/ws-mode.el10
1 files changed, 0 insertions, 10 deletions
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index ed8b5562999..220ac7d67dc 100644
--- 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: