[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: current line to top or bottom of window
From: |
Dmitri . Minaev |
Subject: |
RE: current line to top or bottom of window |
Date: |
Mon, 12 Aug 2002 10:53:24 +0400 |
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
> <bkorb@pacbell.net> 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
>