[mew-dist 27890] Re: incでカーソルがeobに移動しないことがある

Kazu Yamamoto ( 山本和彦 ) kazu at example.com
2007年 11月 20日 (火) 18:21:19 JST


> カーソルは画面中央に移動している感じがします。

そうですね。

Emacs のバグを回避する方法を思いつきました。試してみて下さい。

--かず

Index: mew-highlight.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-highlight.el,v
retrieving revision 1.43
diff -c -r1.43 mew-highlight.el
*** mew-highlight.el	13 Apr 2007 12:24:46 -0000	1.43
--- mew-highlight.el	20 Nov 2007 09:20:11 -0000
***************
*** 38,45 ****
  		(save-excursion (beginning-of-line) (point)))))
  
  (defun mew-unhighlight-cursor-line ()
!   (if (overlayp (mew-sinfo-get-cursor-line))
!       (move-overlay (mew-sinfo-get-cursor-line) 1 1)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 38,48 ----
  		(save-excursion (beginning-of-line) (point)))))
  
  (defun mew-unhighlight-cursor-line ()
!   (when (overlayp (mew-sinfo-get-cursor-line))
!     (move-overlay (mew-sinfo-get-cursor-line) 1 1)
!     ;; (goto-char (point-max)) works wrong if underline exists.
!     ;; Redisplays it so that it works well.
!     (sit-for 0)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;




Mew-dist メーリングリストの案内