From xemacs-m  Thu Jan 30 10:14:17 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id KAA12452 for <xemacs-beta@xemacs.org>; Thu, 30 Jan 1997 10:14:10 -0600 (CST)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id RAA08696; Thu, 30 Jan 1997 17:13:55 +0100 (MET)
Sender: hniksic@public.srce.hr
To: xemacs-beta@xemacs.org
Subject: Help menubar patch
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nAEL1M(".[qvI#a2E
 6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/XvhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 30 Jan 1997 17:13:54 +0100
Message-ID: <kigafpr87jx.fsf@jagor.srce.hr>
Lines: 112

The submenus in help menubar item are too wide for my taste.  Here is
a patch that makes them (IMHO) look much nicer:

*** x-menubar.el.orig	Thu Jan 30 17:00:08 1997
--- x-menubar.el	Thu Jan 30 17:09:46 1997
***************
*** 567,581 ****
       ("Help"
        ["About XEmacs..."	about-xemacs		t]
        ("Basics"
!        ["XEmacs Tutorial"	help-with-tutorial	t]
!        ["XEmacs News"		view-emacs-news		t]
!        ["Package Browser"	finder-by-keyword	t]
!        ["Splash Screen"		xemacs-splash-buffer	t])
        "-----"
        ("XEmacs FAQ"
!        ["XEmacs FAQ (local)"	xemacs-local-faq	t]
!        ["Newest XEmacs FAQ via WWW" xemacs-www-faq	t]
!        ["XEmacs WWW Page"	xemacs-www-page		t])
        ("Samples"
         ["Sample"			(find-file
  					 (expand-file-name "sample.emacs"
--- 567,581 ----
       ("Help"
        ["About XEmacs..."	about-xemacs		t]
        ("Basics"
!        ["Tutorial"	help-with-tutorial	t]
!        ["News"		view-emacs-news		t]
!        ["Packages"	finder-by-keyword	t]
!        ["Splash"	xemacs-splash-buffer	t])
        "-----"
        ("XEmacs FAQ"
!        ["FAQ"	xemacs-local-faq	t]
!        ["FAQ via WWW" xemacs-www-faq	t]
!        ["WWW Page"	xemacs-www-page		t])
        ("Samples"
         ["Sample"			(find-file
  					 (expand-file-name "sample.emacs"
***************
*** 591,622 ****
  	t "enriched"])
        "-----"
        ("Lookup in Info"
!        ["Key/Mouse Binding..."	Info-goto-emacs-key-command-node t]
         ["Command..."		Info-goto-emacs-command-node t]
!        ["Elisp Function..."	Info-elisp-ref		t]
         ["Topic..."		Info-query		t])
        ("Manuals"
!        ["Info (Detailed Docs)"	info			t]
         ["Unix Manual..."	manual-entry		t])
        ("Commands & Keys"
!        ["Describe Mode"		describe-mode		t]
         ["Apropos..."		hyper-apropos		t]
!        ["Apropos Documentation..." apropos-documentation	t]
         "-----"
!        ["Describe Key/Mouse..."	describe-key		t]
!        ["List Key Bindings"	describe-bindings	t]
!        ["List Mouse Bindings"	describe-pointer	t]
!        ["Recent Keystrokes"	view-lossage		t]
         "-----"
!        ["Describe Function..."	describe-function	t]
!        ["Describe Variable..."	describe-variable	t]
!        ["Where Is Command..."	where-is		t])
        "-----"
        ["Recent Messages" view-lossage	t]
        ("Misc"
!        ["Describe No Warranty"	describe-no-warranty	t]
!        ["Describe XEmacs License" describe-copying	t]
!        ["Getting the Latest Version" describe-distribution	t])
        )
       )))
  
--- 591,622 ----
  	t "enriched"])
        "-----"
        ("Lookup in Info"
!        ["Key Binding..."	Info-goto-emacs-key-command-node t]
         ["Command..."		Info-goto-emacs-command-node t]
!        ["Function..."		Info-elisp-ref		t]
         ["Topic..."		Info-query		t])
        ("Manuals"
!        ["Info"			info			t]
         ["Unix Manual..."	manual-entry		t])
        ("Commands & Keys"
!        ["Mode"			describe-mode		t]
         ["Apropos..."		hyper-apropos		t]
!        ["Apropos Docs..."	apropos-documentation	t]
         "-----"
!        ["Key..."		describe-key		t]
!        ["Bindings"		describe-bindings	t]
!        ["Mouse Bindings"	describe-pointer	t]
!        ["Recent Keys"		view-lossage		t]
         "-----"
!        ["Function..."		describe-function	t]
!        ["Variable..."		describe-variable	t]
!        ["Locate Command..."	where-is		t])
        "-----"
        ["Recent Messages" view-lossage	t]
        ("Misc"
!        ["No Warranty"	describe-no-warranty	t]
!        ["XEmacs License" describe-copying	t]
!        ["The Latest Version" describe-distribution	t])
        )
       )))
  


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
A: Vi is the God of editors.
B: Emacs is the editor of Gods.

