===================================================================
> RCS file:
/pack/xemacscvs/XEmacs/packages/xemacs-packages/text-modes/whi
tespace-mode.el,v
> retrieving revision 1.6
> diff -u -u -b -r1.6 whitespace-mode.el
> --- whitespace-mode.el 2004/11/08 02:21:00 1.6
> +++ whitespace-mode.el 2004/12/14 04:19:23
> @@ -504,6 +504,10 @@
> (defvar old-whitespace-menu nil
> "A menu for the whitespace minor mode.")
> +(defvar old-whitespace-menu-name "Apps"
> + "The menu where the whitespace minor mode menu is installed.")
> +
> +
> (setq old-whitespace-menu
> '("Whitespace Menu"
> ["Highlight Whitespaces"
> @@ -533,7 +537,7 @@
> ))
> (if (and (boundp 'old-whitespace-install-submenu)
old-whitespace-install-submenu)
> - (add-submenu '("Apps") old-whitespace-menu))
> + (add-submenu (list old-whitespace-menu-name)
old-whitespace-menu))
> ;;; Toolbar icon for the XEmacs
I don't think this will fly. If I were doing it, I'd put it
in the "Tools" menu. But... I know that Ben is trying to
convince packages to _not_ use the "Tools" menu.
Ben, where should stuff like this go? It seems too
insignificant to be in a menu all to its own.
OK, I haven't completely worked it out but I think it should be something
like this:
;; XEmacs:
;;;###autoload
(if (fboundp 'define-behavior-group)
(define-behavior 'old-whitespace
"Document me please."
:group 'editing
:commands (cdr old-whitespace-menu)))
(if (and (not (fboundp 'define-behavior-group))
(boundp 'old-whitespace-install-submenu)
old-whitespace-install-submenu)
(add-submenu '("Tools") old-whitespace-menu))