[xyzzy:08086] mouse-wheel-scroll

[mwakahara <wakahara@xxxxxxxxxxxxx>]

こんにちは。

質問で申し訳ありません。

mouse-wheel-scrollで、[xyzzy:07240] にありましたscroll-up, downのようにカーソル（キャレット）を固定したスクロールにするにはどうすればよいのでしょうか？

訳もわからず、試してみたものの、びくともしません。

(defun scroll-wo-cursor (n lines)
  (interactive)
  (let ((c (goal-column)))
	(save-excursion
	  (scroll-window (* n lines)))
	(unless (pos-visible-in-window-p (point))
	  (forward-virtual-line (* n lines)))
	(goto-virtual-column c)
	(set-goal-column c))
  t)

(defun mouse-wheel-scroll (window n lines)
  (or lines
	  (setq lines (window-lines window)))
  (with-selected-window
	(set-window window)
	(scroll-wo-cursor (n lines))))

(or (boundp 'mouse-wheel-handler)
    (setq-default mouse-wheel-handler #'mouse-wheel-scroll))


＃過去ログをmouse-wheelネタで検索したのですが、見つけることが出来ませんでした。


以上、よろしくお願いします。

+++++
mwakahara <wakahara@xxxxxxxxxxxxx>