[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [h-e-w] How to add to a menu

From: Stephen Leake
Subject: Re: [h-e-w] How to add to a menu
Date: 23 Jan 2003 12:27:56 -0500
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

"Neil Mackie" <address@hidden> writes:

> Could someone post an example of adding to an existing menu or
> adding to the main menu bar. Failing that could someone point me at
> an appropriate package?

;; change "Cut" from "clipboard-kill-region"
(define-key (lookup-key global-map [menu-bar edit]) [cut] '("Cut" . 

;; change "Copy" from "clipboard-kill-ring-save"
(define-key (lookup-key global-map [menu-bar edit]) [copy] '("Copy" . 

;; change "Paste" from "clipboard-yank"
(define-key (lookup-key global-map [menu-bar edit]) [paste] '("Paste" . yank))

;; delete "Clear"; confusing
(define-key global-map [menu-bar edit clear] nil)

;; Add "Start Select"
  (lookup-key global-map [menu-bar edit])
  [start-select] '("Start Select" . sal-toggle-mark) 'paste)

> Regards,
> Neil (J Mackie).

-- Stephe

reply via email to

[Prev in Thread] Current Thread [Next in Thread]