From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Miles Bader Newsgroups: gmane.emacs.devel Subject: more-mode for your pleasure Date: Tue, 12 Feb 2008 00:08:26 +0900 Message-ID: <87lk5rbket.fsf@catnip.gol.com> Reply-To: Miles Bader NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1202742624 2282 80.91.229.12 (11 Feb 2008 15:10:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 11 Feb 2008 15:10:24 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Feb 11 16:10:44 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JOaHk-0001IY-NB for ged-emacs-devel@m.gmane.org; Mon, 11 Feb 2008 16:09:32 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JOaHH-0002CP-6Z for ged-emacs-devel@m.gmane.org; Mon, 11 Feb 2008 10:09:03 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JOaGw-0001yA-46 for emacs-devel@gnu.org; Mon, 11 Feb 2008 10:08:42 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JOaGs-0001vy-Jq for emacs-devel@gnu.org; Mon, 11 Feb 2008 10:08:41 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JOaGs-0001vr-AV for emacs-devel@gnu.org; Mon, 11 Feb 2008 10:08:38 -0500 Original-Received: from smtp11.dentaku.gol.com ([203.216.5.73]) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JOaGo-0008PK-7O; Mon, 11 Feb 2008 10:08:34 -0500 Original-Received: from 203-216-97-023.dsl.gol.ne.jp ([203.216.97.23] helo=catnip.gol.com) by smtp11.dentaku.gol.com with esmtpa (Dentaku) id 1JOaGl-0004RJ-EF; Tue, 12 Feb 2008 00:08:31 +0900 Original-Received: by catnip.gol.com (Postfix, from userid 1000) id 81E722FF7; Tue, 12 Feb 2008 00:08:27 +0900 (JST) System-Type: i686-pc-linux-gnu Original-Lines: 34 X-Virus-Scanned: ClamAV GOL (outbound) X-Abuse-Complaints: abuse@gol.com X-detected-kernel: by monty-python.gnu.org: Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:88754 Archived-At: 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