[Top][All Lists]

[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 <> 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" 
       (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))

(defun line-to-bottom (arg) "move current line to bottom of window"
       (interactive "p")
       (recenter (- (window-height) (1+ arg)))

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 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  FAX:  1-815-5509341  / \                  Better  Safe  Than  Sorry

reply via email to

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