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

Re: sb-x51.el 

>> On Mon, 31 Jan 2005 11:29:16 +0900
>> "CHO" == mfalcon_sky@emailuser.net (Tsuyoshi CHO) said as follows:

CHO> -           (reverse indexes)
CHO> +           (nreverse indexes)

えー，本当にこの変更でいいんですか? 意図されたのは添付したパッチの変更
なのでは?

本当に setq() なしで nreverse() だけを呼び出したら，常にリストの先頭の
要素 *だけ* しか処理されないはずですけど…．

(let ((list '(a b c)))
  (nreverse list)
  list)
=> (a)

(let ((list '(a b c)))
  (setq list (nreverse list))
  list)
=> (c b a)

-- 
土屋 雅稔 ( TSUCHIYA Masatoshi )

--- sb-x51.el	31 Jan 2005 02:01:28 -0000	1.6
+++ sb-x51.el	31 Jan 2005 02:32:19 -0000
@@ -130,7 +130,7 @@
 		    ))
 		(widen)
 		))
-	    (reverse indexes)
+	    (setq indexes (nreverse indexes))
 	    (catch 'stop
 	      (dolist (elem indexes)
 		(shimbun-retrieve-url (cdr elem) t) ;; retrieve target page