[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: tab browser *MODOKI* on Meadow
From: Hideyuki SHIRAI (白井秀行) <shirai@rdmg.mgcs.mei.co.jp> 曰く
Subject: [emacs-w3m:02161] Re: tab browser *MODOKI* on Meadow
Message-ID: <20011112.114153.87591643.shirai@rdmg.mgcs.mei.co.jp>
Date: Mon, 12 Nov 2001 11:41:53 +0900 (JST)
土> 後者の考え方で実装するなら、w3m-use-tab-menubar を廃止した変更はやり過
土> ぎだったので、もう一度導入する必要があると思います。
白井> はい、w3m-use-tab-menubar は必要となるでしょう。(やっておきます)
土> ;; と言うか、w3m-tab.el を分離した変更もあまり良くない変更だった、とい
土> ;; ことになりそうですね。
白井> w3m-tab.el はすべての FSF Emacs(Mule 含む)で動くけど、XEmacs じゃ
白井> 動かないよ、XEmacs は w3m-xmas.el に書いてあるよ、という感じ(に
白井> なる予定)なので、これはこれで良いと思います。
これから午後一杯会議なので、とりあえず提案だけですが、こんな感じ
でどうでしょう。
# w3m-tab.el から w3m-tab-menu.el に名前を変えています。
--
白井秀行＠あぁ、時間だぁ。。。。
--- w3m-e20.el Thu Nov 8 16:10:21 2001
+++ ../shirai-w3m/emacs-w3m/w3m-e20.el Mon Nov 12 13:10:56 2001
@@ -37,6 +37,7 @@
;;; Code:
(require 'w3m-fsf)
+(require 'w3m-tab-menu)
;; Dummy functions.
(defalias 'w3m-create-image 'ignore)
--- w3m-e21.el Mon Nov 12 09:37:53 2001
+++ ../shirai-w3m/emacs-w3m/w3m-e21.el Mon Nov 12 13:11:01 2001
@@ -37,6 +37,7 @@
(require 'w3m-macro)
(require 'w3m-fsf)
(require 'wid-edit)
+(require 'w3m-tab-menu)
;; Functions and variables which should be defined in the other module
;; at run-time.
--- w3m-om.el Thu Nov 8 13:13:15 2001
+++ ../shirai-w3m/emacs-w3m/w3m-om.el Mon Nov 12 13:11:09 2001
@@ -38,6 +38,7 @@
(require 'poem)
(require 'pcustom)
(require 'pccl)
+(require 'w3m-tab-menu)
(eval-when-compile
(unless (fboundp 'custom-declare-variable)
--- w3m-tab-menu.el Mon Nov 12 13:20:11 2001
+++ ../shirai-w3m/emacs-w3m/w3m-tab-menu.el Mon Nov 12 13:10:34 2001
@@ -1,4 +1,4 @@
-;;; w3m-tab.el --- Functions for TAB browsing
+;;; w3m-tab-menu.el --- Functions for TAB menu browsing
;; Copyright (C) 2001 TSUCHIYA Masatoshi <tsuchiya@namazu.org>
@@ -35,9 +35,7 @@
;;; Code:
-(require 'w3m)
-
-(defun w3m-setup-tab ()
+(defun w3m-setup-tab-menu ()
"Define TAB menubar buttons for FSF Emacsen."
(unless (lookup-key w3m-mode-map [menu-bar w3m-tab])
(define-key-after
@@ -98,5 +96,5 @@
menus)))
(nreverse menus)))
-(provide 'w3m-tab)
-;;; w3m-tab.el ends here
+(provide 'w3m-tab-menu)
+;;; w3m-tab-menu.el ends here
--- w3m-xmas.el Mon Nov 12 09:30:56 2001
+++ ../shirai-w3m/emacs-w3m/w3m-xmas.el Mon Nov 12 13:03:35 2001
@@ -409,7 +409,9 @@
(insert "\n")))))
;;; Gutter:
-(defalias 'w3m-setup-tab 'ignore)
+(defun w3m-setup-tab-menu ()
+ "Dummy function for XEmacs."
+ ())
(defcustom w3m-xmas-show-current-title-in-buffer-tab
(and (boundp 'gutter-buffers-tab-enabled)
--- w3m.el Mon Nov 12 09:30:57 2001
+++ ../shirai-w3m/emacs-w3m/w3m.el Mon Nov 12 13:04:21 2001
@@ -130,10 +130,6 @@
(eval-when-compile
(autoload 'rfc2368-parse-mailto-url "rfc2368"))
-(eval-when-compile
- (when (featurep 'xemacs)
- (defalias 'define-key-after 'ignore)))
-
(defconst emacs-w3m-version
(eval-when-compile
(let ((rev "$Revision: 1.487 $"))
@@ -687,6 +683,11 @@
:group 'w3m
:type 'boolean)
+(defcustom w3m-use-tab-menubar t
+ "Use 'TAB' menubar."
+ :group 'w3m
+ :type 'boolean)
+
(defcustom w3m-pop-up-windows
(if (or (featurep 'xemacs)
(and (boundp 'emacs-major-version)
@@ -3956,10 +3957,6 @@
w3m-info-like-map
w3m-lynx-like-map)))
-(eval-and-compile
- (unless (fboundp 'w3m-setup-tab)
- (autoload 'w3m-setup-tab "w3m-tab")))
-
(defun w3m-mode ()
"\\<w3m-mode-map>
Major mode to browsing w3m buffer.
@@ -4049,7 +4046,7 @@
(setq truncate-lines t)
(w3m-setup-toolbar)
(w3m-setup-menu)
- (when w3m-use-tab (w3m-setup-tab))
+ (when w3m-use-tab-menubar (w3m-setup-tab-menu))
(run-hooks 'w3m-mode-hook))
(defun w3m-scroll-up-or-next-url (arg)
--- w3mhack.el Thu Oct 25 19:06:56 2001
+++ ../shirai-w3m/emacs-w3m/w3mhack.el Mon Nov 12 13:15:34 2001
@@ -61,6 +61,7 @@
(ignores (delete (cond
((featurep 'xemacs)
(push "w3m-fsf.el" version-specific-modules)
+ (push "w3m-tab-menu.el" version-specific-modules)
"w3m-xmas.el")
((boundp 'MULE)
(push "w3m-fsf.el" version-specific-modules)