help-emacs-windows
[Top][All Lists]
Advanced

[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" . 
kill-region-or-delete-char))

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

;; 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"
(define-key-after
  (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]