From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Dmitri.Minaev@Samara.BritishCouncil.RU Newsgroups: gmane.emacs.help Subject: RE: current line to top or bottom of window Date: Mon, 12 Aug 2002 10:53:24 +0400 Sender: help-gnu-emacs-admin@gnu.org Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-8" X-Trace: main.gmane.org 1029131488 3183 127.0.0.1 (12 Aug 2002 05:51:28 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 12 Aug 2002 05:51:28 +0000 (UTC) Cc: help-gnu-emacs@gnu.org Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17e86x-0000pE-00 for ; Mon, 12 Aug 2002 07:51:27 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 17e87a-0001KY-00; Mon, 12 Aug 2002 01:52:06 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10) id 17e86x-0001KN-00 for help-gnu-emacs@gnu.org; Mon, 12 Aug 2002 01:51:27 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10) id 17e86v-0001KB-00 for help-gnu-emacs@gnu.org; Mon, 12 Aug 2002 01:51:27 -0400 Original-Received: from [194.84.94.50] (helo=rus2nt01.samara.britishcouncil.ru) by monty-python.gnu.org with esmtp (Exim 4.10) id 17e86v-0001K6-00 for help-gnu-emacs@gnu.org; Mon, 12 Aug 2002 01:51:25 -0400 Original-Received: by RUS2NT01 with Internet Mail Service (5.5.2650.21) id <3QNSVXFB>; Mon, 12 Aug 2002 10:53:25 +0400 Original-To: ehud@unix.mvs.co.il, bkorb@pacbell.net X-Mailer: Internet Mail Service (5.5.2650.21) Errors-To: help-gnu-emacs-admin@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.help:800 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:800 Mine are not that sophisticated :) (defalias 'goto-page-top (read-kbd-macro "C-u 1 M-r")) (defalias 'goto-page-bot (read-kbd-macro "C-u -1 M-r")) and, of course: (global-set-key [(control {)] 'goto-page-top) (global-set-key [(control })] 'goto-page-bot) -- With best regards, Dmitri Minaev > -----Original Message----- > From: Ehud Karni [mailto:ehud@unix.mvs.co.il] > Sent: Sunday, August 11, 2002 5:42 PM > To: Bruce Korb > Cc: help-gnu-emacs@gnu.org > Subject: Re: current line to top or bottom of window > > > On Sun, 11 Aug 2002 09:09:19 -0700, Bruce Korb > wrote: > > > > Once upon a time, I used to be able to move the line with point > > to the top or bottom of the window by clicking the scroll area > > with the left (top) or right (bottom) button. The new version > > of emacs won't let me do that. I've wandered around the docs > > quite a bit and haven't found any way to do it, short of learning > > emacs-lisp and writing my own macro. That seems a little over > > the top. :-( Does *anyone* have macros for this, either as > > a keyboard macro or a mouse click? Thank you. I will *sure* > > appreciate it!! > > Here are my defined functions: > > (defun middle-window () "go to line in middle of window" > (interactive) > (move-to-window-line (+ (/ (1- (window-height)) 2)))) > > (defun line-to-top (arg) "move current line to top of window" > (interactive "p") > (recenter (1- arg)) > (middle-window)) > > (defun line-to-bottom (arg) "move current line to bottom of window" > (interactive "p") > (recenter (- (window-height) (1+ arg))) > (middle-window)) > > Please note that these functions will put the cursor at the middle of > window after moving the text. If you do not want that remove the > "(middle-window)" [ leave 1 ")" ]. > > I assign the keys Shift-Page-Up and Shift-Page-Down to these commands: > > (define-key global-map '[S-next] 'line-to-top) ;shift pg-dn key > (define-key global-map '[S-kp-next] 'line-to-top) ;shift > pg-dn key (keypad) > > (define-key global-map '[S-prior] 'line-to-bottom) ;shift pg-up key > (define-key global-map '[S-kp-prior] 'line-to-bottom) ;shift > pg-up key (keypad) > > Ehud. > > > -- > Ehud Karni Tel: +972-3-7966-561 /"\ > Mivtach - Simon Fax: +972-3-7966-667 \ / ASCII Ribbon Campaign > Insurance agencies (USA) voice mail and X Against HTML Mail > http://www.mvs.co.il FAX: 1-815-5509341 / \ > mailto:ehud@unix.mvs.co.il Better Safe Than Sorry > > > _______________________________________________ > Help-gnu-emacs mailing list > Help-gnu-emacs@gnu.org > http://mail.gnu.org/mailman/listinfo/help-gnu-emacs >