Path: utzoo!utgpu!watmath!uunet!tut.cis.ohio-state.edu!rutgers!rochester!pt.cs.cmu.edu!andrew.cmu.edu!lord+
From: lord+@andrew.cmu.edu (Tom Lord)
Newsgroups: gnu.emacs
Subject: more fun with scrolling
Message-ID: <0XdjnSy00jaIB4E0gP@andrew.cmu.edu>
Date: 14 Dec 88 23:44:30 GMT
Organization: Carnegie Mellon
Lines: 38


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