🚀 go-pugleaf

今井です
難波さん、有沢さん、小野さん ありがとうございます。
有沢さんのやり方、難波さんのやり方のどちらでも、
smooth-scroll-up/down でマークしてからリージョンを
囲えることを確認しました。

修正したファイルは以下の様なものです。
------------------------------------------------------------
(defun current-line-in-window  ()
  "Returns line count of current line in current window. No arg."
  (save-excursion
    ;; goto bol not to count \n at eol of this line...
    (beginning-of-line)
    (count-lines (point)
                 (save-excursion (move-to-window-line 0)
                                 (point)))))

(defun smooth-scroll-up (arg)
  "Moves cursor down keeping cursor within 1/3 to 2/3 area of current window.
Scroll the window in need.
It's convenient to bind this command to down arrow key."
  (interactive "_p")
  (let* ((height (1- (window-height)))
         (parity (% height 2))
         (top-edge (/ (1- height) 4))
         (btm-edge (+ (1+ parity) (* top-edge 3)))
         (c-line (current-line-in-window))
         (bob-not-shown;; var. to duck ding.
          (not (pos-visible-in-window-p (point-min)))))
    (if
        ;; Case cursor is within central area:
        (or (and (> arg 0)
                 (<= c-line btm-edge)
                 (< (- btm-edge c-line) arg))
            (and (< arg 0)
                 (>= c-line top-edge)
                 ;;(< (- c-line top-edge) (- arg)) ;; old code for next line.
                 (> (- top-edge c-line)  arg)
                 bob-not-shown))
        (scroll-up arg)
      ;; else if cursor is in peripheral area:
      ;; re-calibrating cursor to central area.
      (progn
        (if (and (> arg 0)
                 (> c-line btm-edge))
            (scroll-up (+ arg (- c-line btm-edge))))
        (if (and (< arg 0)
                 (< c-line top-edge)
                 bob-not-shown)
            (scroll-up (+ arg (- c-line top-edge))))))
    (line-move arg)
	(setq this-command 'next-line)))

(defun smooth-scroll-down (arg)
	  "Moves cursor up keeping cursor within 1/3 to 2/3 area of current window.
Scroll the window in need.
It's convenient to bind this command to up arrow key."
	  (interactive "_p")
	  (smooth-scroll-up (- arg))
	  (setq this-command 'previous-line))

;カーソルの移動方法を変更する
(global-set-key "\C-p" 'smooth-scroll-down)
(global-set-key [up] 'smooth-scroll-down)
(global-set-key "\C-n" 'smooth-scroll-up)
(global-set-key [down] 'smooth-scroll-up)
------------------------------------------------------------

以前にカーソルをwindowの端まで移動できるようにするには
------------------------------------------------------------
(top-edge (/ (1- height) 4))
(btm-edge (+ (1+ parity) (* top-edge 3)))
------------------------------------------------------------
を
------------------------------------------------------------
(top-edge 0)
(btm-edge (- height 2))
------------------------------------------------------------
にすれば良いと教えていただいたのですが
こちらがまだうまく行きません。

ここで、top-edgeでカーソルの上限を、btm-edgeでカーソルの下限を
きめているだけだと思うのです。
ですから、下のように書き直すことで
カーソルの上限を一番上に、カーソルの下限をしたから2行目に
変更できると思ったのですが、実際にsmooth-scroll-up/down
を実行するとすぐにカーソルが、windowの中央に飛んでしまいます。
(つまり、xemacsの C-p C-n のデフォルトの動作をしてしまう。)

一応 (top-edge 1) とすることで上に移動するときは、上から2行目
まではカーソルが移動できるようになったのですが、下に移動すると
きはどのようにしても、カーソルが中央に飛んでしまいます。

もし、カーソルが window の一番上、一番下まで移動できる方法があ
れば教えてください。お願いします。