lord+@andrew.cmu.edu (Tom Lord) (12/15/88)
While we're talking about scrolling, here are two commands swiped from the ITC's
text editor. They do a conventional scroll (that is, they change the location
of the cursor on the screen) one line at a time.
I bind them them to ^Q and ^Z, pushing the less frequently used quote and
suspend to ^X^Q and ^X^Z. I think that they might compliment the recently
posted scroll commands nicely.
(defun up-one-line (count)
"Scroll up one line"
(interactive "p")
(scroll-up count))
(defun down-one-line (count)
"Scroll up one line"
(interactive "p")
(scroll-down count))
Another scrolling function: I almost never need to refresh the screen with ^L.
I don't suffer from noisy lines and there don't seem to be any redisplay bugs.
However, the ability to move the current line around on the screen is really
useful. Therefore, I bind this to ^L, and put recenter on ESC-^L.
(defun recenter-sans-bletcherous-redraw (prefix)
"Recenter without redrawing."
(interactive "p")
(if current-prefix-arg
(recenter prefix)
(let ((current-prefix-arg '(4))) ;hackety hack hack hack
(recenter current-prefix-arg))))
-t