* Creating submenu
@ 2009-11-29 23:50 ken
0 siblings, 0 replies; 5+ messages in thread
From: ken @ 2009-11-29 23:50 UTC (permalink / raw
To: GNU Emacs List
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
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Creating submenu
[not found] <mailman.11799.1259538618.2239.help-gnu-emacs@gnu.org>
@ 2009-11-30 0:05 ` Joost Kremers
0 siblings, 0 replies; 5+ messages in thread
From: Joost Kremers @ 2009-11-30 0:05 UTC (permalink / raw
To: help-gnu-emacs
ken wrote:
> I'm trying to create a submenu (under Edit) for inserting non-English
> characters.
why don't you use an input method?
--
Joost Kremers joostkremers@yahoo.com
Selbst in die Unterwelt dringt durch Spalten Licht
EN:SiS(9)
^ permalink raw reply [flat|nested] 5+ messages in thread
* Creating submenu
@ 2009-12-02 13:02 ken
2009-12-02 18:49 ` Davis Herring
0 siblings, 1 reply; 5+ messages in thread
From: ken @ 2009-12-02 13:02 UTC (permalink / raw
To: emacs-bug
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
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Creating submenu
2009-12-02 13:02 ken
@ 2009-12-02 18:49 ` Davis Herring
2009-12-03 2:03 ` ken
0 siblings, 1 reply; 5+ messages in thread
From: Davis Herring @ 2009-12-02 18:49 UTC (permalink / raw
To: gebser; +Cc: emacs-bug
> ;Make ^C-cg a key prefix for chars menu
> (global-set-key [?\C-c ?g] ctl-x-map)
You're reusing the keymap that C-x is normally bound to, so now C-c g is
an alias for C-x in every respect. Don't do that! Make a new keymap:
(defvar chars-map (make-sparse-keymap)
"Keymap for inserting special characters.")
(global-set-key [?\C-c ?g] chars-map)
You can omit "sparse-" if you're planning to bind lots of ASCII characters
(like, say, C-c g a, C-c g 0, etc.).
> (fset 'list-all-chars [?\C-x ?8 f1])
You can do this more idomatically with
(defun list-all-chars ()
"Describe the C-x 8 keybindings."
(interactive)
(describe-bindings "\C-x8"))
(`describe-bindings' is what implements `f1' after a prefix key.) But
there might be a better way: one that used the binding of C-x 8 directly
so that it would work even if the user had moved that binding elsewhere.
I don't know what it would be, though.
Hope this helps,
Davis
--
This product is sold by volume, not by mass. If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Creating submenu
2009-12-02 18:49 ` Davis Herring
@ 2009-12-03 2:03 ` ken
0 siblings, 0 replies; 5+ messages in thread
From: ken @ 2009-12-03 2:03 UTC (permalink / raw
To: herring; +Cc: emacs-bug
On 12/02/2009 01:49 PM Davis Herring wrote:
>> ;Make ^C-cg a key prefix for chars menu
>> (global-set-key [?\C-c ?g] ctl-x-map)
>
> You're reusing the keymap that C-x is normally bound to, so now C-c g is
> an alias for C-x in every respect. Don't do that! Make a new keymap:
That was beginning to dawn on me, but didn't know where/what to fix.
> ....
>
> Hope this helps,
> Davis
>
Worked perfectly. Thanks much.
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2009-12-03 2:03 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
[not found] <mailman.11799.1259538618.2239.help-gnu-emacs@gnu.org>
2009-11-30 0:05 ` Creating submenu Joost Kremers
2009-12-02 13:02 ken
2009-12-02 18:49 ` Davis Herring
2009-12-03 2:03 ` ken
-- strict thread matches above, loose matches on Subject: below --
2009-11-29 23:50 ken
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.