Re: how to remove a menu item?

[Xah Lee]

On Feb 1, 10:38 pm, "Drew Adams" <drew.ad...@oracle.com> wrote:
> > if i want to remove the menu under Help ? Emacs Psychotherapist, how
> > do i do it?

> Either of these will get rid of this binding:
>
> (define-key global-map [menu-bar help-menu emacs-psychotherapist] nil)
>
> (define-key menu-bar-help-menu [emacs-psychotherapist] nil)

Thanks Drew.

Following is a removal of a bunch for those interested.

--------------------------------
;; 2009-02-02

(define-key global-map [menu-bar edit search search-forward] nil)
(define-key global-map [menu-bar edit search search-backward] nil)
(define-key global-map [menu-bar edit search re-search-forward] nil)
(define-key global-map [menu-bar edit search re-search-backward] nil)
(define-key global-map [menu-bar edit search repeat-search-fwd] nil)
(define-key global-map [menu-bar edit search repeat-search-back] nil)

(define-key global-map [menu-bar edit goto go-to-pos] nil)
(define-key global-map [menu-bar edit goto beg-of-buf] nil)
(define-key global-map [menu-bar edit goto end-of-buf] nil)

(define-key global-map [menu-bar options blink-cursor-mode] nil)
(define-key global-map [menu-bar options debug-on-error] nil)
(define-key global-map [menu-bar options debug-on-quit] nil)

(define-key global-map [menu-bar options showhide showhide-tool-bar]
nil)
(define-key global-map [menu-bar options showhide showhide-scroll-bar]
nil)
(define-key global-map [menu-bar options showhide showhide-fringe]
nil)

(define-key global-map [menu-bar options showhide mac-font-panel-mode]
nil)
(define-key global-map [menu-bar options showhide showhide-battery]
nil)
(define-key global-map [menu-bar options showhide showhide-date-time]
nil)
(define-key global-map [menu-bar options showhide size-indication-
mode] nil)

(define-key global-map (kbd "<S-down-mouse-1>") nil)

;; tools menu
(define-key global-map [menu-bar tools gnus] nil)
(define-key global-map [menu-bar tools rmail] nil)
(define-key global-map [menu-bar tools compose-mail] nil)
(define-key global-map [menu-bar tools games] nil)

;; to do:
;; • move incremental search menus one level up.

(define-key global-map [menu-bar help-menu emacs-psychotherapist] nil)
(define-key global-map [menu-bar help-menu emacs-known-problems] nil)
(define-key global-map [menu-bar help-menu emacs-tutorial] nil)
(define-key global-map [menu-bar help-menu emacs-tutorial-language-
specific] nil)
(define-key global-map [menu-bar help-menu emacs-faq] nil)
(define-key global-map [menu-bar help-menu search-documentation emacs-
terminology] nil)
(define-key global-map [menu-bar help-menu external-packages] nil)
(define-key global-map [menu-bar help-menu more-manuals order-emacs-
manuals] nil)

;; to do: remove dividers

------------------------------

i started a emacs2010 project on google code.

http://code.google.com/p/emacs2010/

only started this week. Much are still in flux. I wished to have a
emacs much like AquaMacs but for Window, Mac, Linux, not just for Mac
OS X. The modernization would be focused on emacs, as opposed to Apple
UI guidline (such as launching every buffer in a new window or
launching Apple's Help Application when pulling Help menu). The
primarly goal, is that user simply download binary, use it, find it a
joy, out of the box. There will be no cult, philosophy, manuals to
acquaint, geeking culture about ways and methods, etc. There will also
not be any “dumb down” for stupid people.

... there are much to do, and much of the change detail i have yet to
write up. If i keep at this, hopefully this goal can be achieved this
year. Anyone is very welcome to join. The code will be fully
compatible with GNU emacs, and all in GPL. So, if any FSF developers
find some idea or code interesting, it's right there to pickup.

No guarantee this is some software in coming. Nor is this some grand
announcement. If in this year the project turns out well, then great.
Join in anytime.

  Xah
∑ http://xahlee.org/

☄