help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: current line to top or bottom of window


From: Ehud Karni
Subject: Re: current line to top or bottom of window
Date: Sun, 11 Aug 2002 19:41:41 +0300

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]