[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: w3m-scroll-left, w3m-scroll-right in Emacs21
- From: TSUCHIYA Masatoshi <tsuchiya@xxxxxxxxxxxxxxxxxxxxxxx>
- Date: Sun, 18 Nov 2001 21:43:07 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 02278
- References: <courier.3BEF8312.0000101E@gyoku3>
>> 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 )