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

[xyzzy:02051] Re: next-buffer



こんにちは。

        Fri, 5 Mar 1999 11:44:22 +0900 の
        [xyzzy:02049] Re: next-buffer
        への自己レスです。

> (defun next-buffer-but-lister ()
>   (interactive)
>   (next-buffer)
>   (cond ((or (eq (selected-buffer) ed::*lister-buffer*)
> 			 (eq (selected-buffer) ed::*lister-2-buffer*))
> 		 (next-buffer))
> 		((eq (selected-buffer) ed::*lister-1-buffer*)
> 		 (next-buffer) (next-buffer))))

こうじゃないや。こうだ。

(defun next-buffer-but-lister ()
  (interactive)
  (next-buffer)
  (cond ((eq (selected-buffer) ed::*lister-1-buffer*)
		 (next-buffer) (next-buffer))
		((or (eq (selected-buffer) ed::*lister-buffer*)
			 (eq (selected-buffer) ed::*lister-2-buffer*))
		 (next-buffer))))

なんだかわからないけど、試行錯誤の結果、下のほうですね。
んー、むずい。

--------
須田誠也(suda seiya)
Seiya> EZU11330@xxxxxxxxxxx
Seiya> http://member.nifty.ne.jp/seiya-suda/
Seiya> ただいま lister は version 0.99.7.4 です - New!!
Seiya> バグがいっこうに減らにゃい

Index Home