[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" .
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