[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: w3m-scroll-left, w3m-scroll-right in Emacs21



>> On Mon, 12 Nov 2001 17:06:42 +0900
>> 「藤」== fujii@gyoku3.b4.chi.its.hiroshima-cu.ac.jp said as follows:

藤> Emacs21 にしてから、横スクロールの調子がどうも悪かったのですが、以
藤> 下により快調になりました。

実を言うと、私の環境でもうまく動いていなかったのですが、気のせいではな
かったのですね。

頂いた変更を少々変更して、以下のように対策してみたところ、

    Mule2.3@19.34
    Emacs20.7
    Emacs21.1

ではうまく動くことが確認できたのですが、XEmacs21.4 では相変わらず、う
まく動きません。ただし、私の環境の XEmacs21.4 では以前からうまく動いて
いないのですが、他の皆さんの環境ではどうなっているのでしょうか?
Index: w3m.el
===================================================================
RCS file: /home/tsuchiya/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.503
diff -u -u -r1.503 w3m.el
--- w3m.el	18 Nov 2001 06:31:59 -0000	1.503
+++ w3m.el	18 Nov 2001 11:08:05 -0000
@@ -3844,18 +3844,22 @@
 Scroll size is `w3m-horizontal-scroll-size' columns
 or prefix ARG columns."
   (interactive "P")
-  (scroll-left (if arg
-		   (prefix-numeric-value arg)
-		 w3m-horizontal-scroll-columns)))
+  (let ((current-prefix-arg
+	 (if arg
+	     (prefix-numeric-value arg)
+	  w3m-horizontal-scroll-columns)))
+    (call-interactively 'scroll-left)))
 
 (defun w3m-scroll-right (arg)
   "Scroll to right.
 Scroll size is `w3m-horizontal-scroll-size' columns
 or prefix ARG columns."
   (interactive "P")
-  (scroll-right (if arg
-		    (prefix-numeric-value arg)
-		  w3m-horizontal-scroll-columns)))
+  (let ((current-prefix-arg
+	 (if arg
+	     (prefix-numeric-value arg)
+	  w3m-horizontal-scroll-columns)))
+    (call-interactively 'scroll-right)))
 
 (defun w3m-goto-mailto-url (url)
   (if (and (symbolp w3m-mailto-url-function)
-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )