Re: Customizable tool bars

[Steve Youngs <steve@sxemacs.org>]

[-- Attachment #1.1: Type: text/plain, Size: 1135 bytes --]

* Katsumi Yamaoka <yamaoka@jpl.org> writes:

  > Currently, it makes XEmacs be unable to start No Gnus.  For the
  > workaround, I added the following form to the ~/.gnus.el file.

  > (when (featurep 'xemacs)
  >   (eval-after-load "gnus-group"
  >     '(defalias 'gnus-group-make-tool-bar 'ignore))
  >   (eval-after-load "gnus-sum"
  >     '(defalias 'gnus-summary-make-tool-bar 'ignore)))

Good to know, thanks.

  >>>>>> In <v9k6coqn13.fsf@marauder.physik.uni-ulm.de> Reiner Steib wrote:

  >> On Fri, Jan 20 2006, Reiner Steib wrote:

  >>> I've committed a customizable tool bar interface for message mode
  >>> (Emacs only, not XEmacs).

  > BTW, the following two lines appear in the terminal emulator
  > whenever I start XEmacs in the terminal even if I use the
  > -vanilla option.

  > Loading gmm-utils...
  > Loading gmm-utils...done

  > Does anyone know why?

It's from over-aggressive autoloading.  And the reason you still see
the problem with -vanilla is because -vanilla still loads the
auto-autoloads.el files.  To _not_ load those you need -no-autoloads.

Here's a patch to fix the spurious output to stdout...


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: Type: text/x-patch, Size: 890 bytes --]


Index: gmm-utils.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gmm-utils.el,v
retrieving revision 7.6
diff -u -p -u -r7.6 gmm-utils.el
--- gmm-utils.el	24 Jan 2006 16:37:36 -0000	7.6
+++ gmm-utils.el	26 Jan 2006 01:34:01 -0000
@@ -110,7 +110,6 @@ This is copy of the `lazy' widget in Ema
 ;; version will provide customizable tool bar buttons using a different
 ;; interface.
 
-;;;###autoload
 (define-widget 'gmm-tool-bar-item (if (gmm-widget-p 'lazy) 'lazy 'gmm-lazy)
   "Tool bar list item."
   :tag "Tool bar item"
@@ -130,7 +129,6 @@ This is copy of the `lazy' widget in Ema
 		(const :tag "No map")
 		(plist :inline t :tag "Properties"))))
 
-;;;###autoload
 (define-widget 'gmm-tool-bar-zap-list (if (gmm-widget-p 'lazy) 'lazy 'gmm-lazy)
   "Tool bar zap list."
   :tag "Tool bar zap list"


[-- Attachment #1.3: Type: text/plain, Size: 256 bytes --]


-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|                 I am Dyslexic of Borg.                   | 
|    Fusistance is retile. Your arse will be laminated.    |
|------------------------------------<steve@sxemacs.org>---|

[-- Attachment #2: Type: application/pgp-signature, Size: 256 bytes --]