Re: Menu

[Masatake Yamato <masata-y@xxxxxxxxxxxxxxxxxx>]

大和です．

> 現在の動きは 
> ・XEmacs は w3m-xmas.el で w3m-setup-menu() が設定される。
> ・その他の Emacs は w3m.el で設定される。w3m-xmas.el はこれより
>   前で require されている。
> 
> となっています。ので、w3m-xmas.el の該当部分に書き加えれば
> XEmacs も OK となります。

適切な説明ありがとうございます．

> ちゃんと TODO のまま :-)、w3m-xmas.el に残っていますので、そいつ
> を edit すれば大丈夫です。
作って参りました．満足行くようでしたらコミットして下さい．
よろしくお願いします．

2001-05-07  Masatake YAMATO  <jet@gyve.org>

	* w3m-xmas.el (w3m-setup-menu): Implemented.

Index: w3m-xmas.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m-xmas.el,v
retrieving revision 1.16
diff -u -r1.16 w3m-xmas.el
--- w3m-xmas.el	2001/05/07 02:20:44	1.16
+++ w3m-xmas.el	2001/05/07 10:59:51
@@ -121,8 +121,27 @@
 
 ;;; Menu
 (defun w3m-setup-menu ()
-  ;; TODO
-  )
+  (let ((w3m-menu '("W3M"
+		    ["Go to..." w3m-goto-url t]
+		    ["Reload This Page" w3m-reload-this-page t]
+		    ["Back to previous page" w3m-view-previous-page 
+		     (w3m-history-previous-link-available-p)]
+		    ["Forward to Next Page" w3m-view-next-page 
+		     (w3m-history-next-link-available-p)]
+		    ["Upward to Parent Page" w3m-view-parent-page 
+		     (w3m-parent-page-available-p)]
+		    ["Download This URL" w3m-download-this-url t]
+		    ["Print Current URL" w3m-print-current-url t]
+		    ["View Bookmark" w3m-bookmark-view t]
+		    ["Copy Buffer" w3m-copy-buffer t]
+		    )))
+    ;; Menu codes are from f90.el.
+    (if (and (featurep 'menubar)
+	     current-menubar
+	     (not (assoc "W3M" current-menubar)))
+	(progn
+	  (set-buffer-menubar (copy-sequence current-menubar))
+	  (add-submenu nil w3m-menu)))))
 
 ;;; Widget:
 (eval-when-compile (require 'wid-edit))