more-mode for your pleasure

[Miles Bader]

Since "view-mode" sucks in just about every conceivable way, and is
AFAICT, un-salvageable, here's a more minimalist (but less sucky)
replacement you might enjoy:


;; Should be in subr.el
(defun scroll-up-one-line (&optional lines)
  (interactive "p")
  (scroll-up lines))

(defvar more-map
  (let ((mm (make-sparse-keymap)))
    (suppress-keymap mm)
    (define-key mm " " 'scroll-up)
    (define-key mm "\C-?" 'scroll-down)
    (define-key mm "\C-m" 'scroll-up-one-line)
    (define-key mm "q" 'bury-buffer)
    mm)
  "Keymap for `more-mode'.")

(define-minor-mode more-mode
  "A minor mode for browsing files.  SPC, DEL, and other keys are
bound to scroll the file instead of self-inserting.

\\{more-map}"
  :keymap more-map
  :lighter " More")


-Miles

-- 
"Whatever you do will be insignificant, but it is very important that
 you do it."  Mahatma Gandhi