[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: multi buffer under emacs-w3m
>> On Thu, 27 Nov 2003 16:40:15 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:
山> ともかく w3m-alive-p() が引数の有無に関わらずに buffer-list() の戻
山> り値の順序に近いものを扱うようにしましょう。
山> 実施しました。
ご苦労様でした．
しかし，この件はそれでは終わらないのですね．この変更の結果，末尾に添付
したように w3m-last-visited-buffer を取り除いてしまえるようになったの
ではないかと思います．手元で軽く試した限りでは大丈夫でしたが，何か反例
があるでしょうか?
--
土屋 雅稔 ( TSUCHIYA Masatoshi )
diff -u -r1.941 w3m.el
--- w3m.el 27 Nov 2003 07:40:55 -0000 1.941
+++ w3m.el 27 Nov 2003 08:05:34 -0000
@@ -5948,8 +5948,6 @@
(let* ((buffers (w3m-list-buffers t))
(bufs buffers)
buf windows window)
- (setq w3m-last-visited-buffer
- (car (memq (window-buffer (selected-window)) buffers)))
(w3m-delete-frames-and-windows)
(while bufs
(setq buf (pop bufs))
@@ -7016,12 +7014,7 @@
nil ;; new-session
(not url)))) ;; interactive-p
(let ((nofetch (eq url 'popup))
- (buffer (unless new-session
- (if (and (buffer-live-p w3m-last-visited-buffer)
- (with-current-buffer w3m-last-visited-buffer
- (eq major-mode 'w3m-mode)))
- w3m-last-visited-buffer
- (w3m-alive-p t))))
+ (buffer (unless new-session (w3m-alive-p t)))
(popup-frame-p (and (not interactive-p) (w3m-popup-frame-p)))
(w3m-pop-up-frames (and interactive-p w3m-pop-up-frames))
(w3m-pop-up-windows (and interactive-p w3m-pop-up-windows)))
diff -u -r1.53 w3m-util.el
--- w3m-util.el 27 Nov 2003 01:29:07 -0000 1.53
+++ w3m-util.el 27 Nov 2003 08:05:35 -0000
@@ -418,13 +418,9 @@
for not deleting frames made for aims other than emacs-w3m sessions.")
(make-variable-buffer-local 'w3m-initial-frames)
-(defvar w3m-last-visited-buffer nil
- "Variable used to keep an emacs-w3m buffer which the user used last.")
-
(defun w3m-popup-buffer (buffer)
"Pop up BUFFER as a new window or a new frame
according to `w3m-pop-up-windows' and `w3m-pop-up-frames' (which see)."
- (setq w3m-last-visited-buffer nil)
(let ((window (get-buffer-window buffer t))
(oframe (selected-frame))
(popup-frame-p (w3m-popup-frame-p))