🚀 go-pugleaf

今井です。

At 06 Jun 2001 01:51:29 +0900,
Seiichi Namba wrote:
> 
> 難波です。
> 
> c-quick.el も basic.el の smooth-scroll-up/down も mark に関しては何も
> 処理していないと思うので、「リージョンが指定できない」というのは解せな
> いように思います。
> 
> 具体的に「このような動作を期待している」が「こうしかならない」という
> ように書いてみていただけますか。
> 
> 手元では、C-SPC した後、smooth-scroll-down して先に進み、C-x C-x すれば
> 元の位置に戻るので、動作は正常に思えます。

編集したいファイルを開き、C-SPC でマークをする。
C-n で "smooth-scroll-down" を数回実行する。
このあと、C-w で kill-region を実行したい。

という作業をしたいのですが、kill-regionできません。

.emacsに書き加えた、basic.el の一部を添付します。
よろしくお願いします。

;--------------------------------------------------
;scrollの設定
;--------------------------------------------------

(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)))))
        ;; Old code.
        ;;     (bob-not-shown (if (/= (point-min)     ;; var. to duck ding.
        ;;                     (save-excursion
        ;;                       (move-to-window-line 0)
        ;;                       (point))) t nil)))

    (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 wind
ow.
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)