[Top][All Lists]

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

Creating submenu

From: ken
Subject: Creating submenu
Date: Sun, 29 Nov 2009 18:50:10 -0500
User-agent: Thunderbird (X11/20090625)

I'm trying to create a submenu (under Edit) for inserting non-English
characters.  I'd like this submenu to show keybindings as well... to
serve as reminders so I don't have to go to the menu all the time.
Finally, I'm defining a new prefix key, "C-c g" for the items in this
submenu.  I'd like this submenu to be operative in all major modes that
I'd be editing in.

Actually, after reading a few chapters in the elisp manual and examining
existing elisp code, I have come up with code that is working, but it
has some undesirable side-effects.  Here's what I have:

;Make ^C-cg a key prefix for chars menu
(global-set-key [?\C-c ?g] ctl-x-map)

;;Need this definition, else the main "define-key ..." below it errors.
(defvar menu-bar-chars-menu (make-sparse-keymap "chars"))

;This puts the "European chars" item into the "Edit" menu.
;;Function definition: (define-key keymap key def)
(define-key menu-bar-edit-menu [chars]
  (list 'menu-item "Insert European chars" menu-bar-chars-menu))

;Menu item: list all UTF-8 chars
(fset 'list-all-chars [?\C-x ?8 f1])
(global-set-key [?\C-c ?g ?0] 'list-all-chars)
(define-key menu-bar-chars-menu [listall]
  '(menu-item "List all UTF-8 chars" list-all-chars))

The last stanza pretty much repeats for characters which are inserted.
And the above works fine except:

In the menu the keybinding displayed is not "C-x g 0", but rather "C-x
0" and...

While "C-x g 0" works as intended and does display the listing of UTF-8
characters, so does the displayed "C-x 0"... i.e., it has replaced the
former keybinding of "C-x 0"... not good.  So I'm guess there's some
error in the way I've established keybindings with the new prefix.

Thanks much for your cordial assistance.

Without music, life would be a mistake.
        --Friedrich Nietzsche

reply via email to

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