Re: recenter-top-bottom

[Lennart Borgman (gmail)]

Lennart Borgman (gmail) wrote:
> Alan Mackenzie_JWA wrote:
> >  >> I wouldn't like it, because I'd find it too slow.  I've
> >
> >  >> In what way is it slower when todays binding of C-l?
> >
> > Sorry, lack of clarity there. I meant that to scroll point to bottom
> > of window, C-l C-l C-l is much slower than C-S-<left>. For me, it
> > would be unusably slow. Given that, the changed functionality on C-l,
> > though I'd only be caught by it occasionally, would irritate me.
>
>
> How about C-u - C-l with Drews suggestion?


Or, here is another variant similar of Drew's suggestion. This uses 
timeout and does not scroll until the action is decided. I have set the 
time out to 2 seconds here, because it looks like there are some bugs 
when putting back the key sequence that was read:

(defun recenter-top-bottom (&optional arg)
  "Move current line to window center, top, and bottom, alternately.
With prefix ARG, move current line to window-line ARG.

Otherwise if the key sequence that invoked this command is
repeated within `cua-prefix-override-inhibit-delay' then current
line is moved to top, or if repeated again, bottom."
  (interactive "P")
  (if arg
      (recenter arg)
    (let* ((cmd-keys (this-command-keys))
           (delay 2);cua-prefix-override-inhibit-delay)
           (keys (with-timeout (delay nil) (read-key-sequence nil))))
      (if (equal cmd-keys keys)
          (let ((keys (with-timeout (delay nil) (read-key-sequence nil))))
            (if (equal cmd-keys keys)
                (recenter -1)
              (recenter 0)
              (put-back-read-key-sequence keys)))
        (recenter)
        (put-back-read-key-sequence keys)))))

(defun put-back-read-key-sequence (keys)
  (when keys
    (when (vectorp keys)
      (setq keys (append keys nil)))
    (isearch-unread keys)))