GNU bug report logs - #66792
30.0.50; describe-keymap shows unreachable parent map bindings

Previous Next

To reply to this bug, email your comments to 66792 AT debbugs.gnu.org.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Phil Sainty <psainty <at> orcon.net.nz>
To: bug-gnu-emacs <at> gnu.org
Subject: 30.0.50; describe-keymap shows unreachable parent map bindings
Date: Sun, 29 Oct 2023 02:34:41 +1300

The following code demonstrates this bug involving parent keymaps:

;; The parent keymap binds key sequence "a b"
;; (making "a" a prefix key with a submap).

(defvar my-keymap-parent
  (let ((map (make-sparse-keymap)))
    (define-key map (kbd "a b") 'foo)
    map))

;; The child keymap binds a command directly to "a" meaning
;; that the parent's submap is not accessible from the child.

(defvar my-keymap-child
  (let ((map (make-sparse-keymap)))
    (set-keymap-parent map my-keymap-parent)
    (define-key map (kbd "a") 'bar)
    map))

;; However (describe-keymap 'my-keymap-child) displays the "a b"
;; binding as if it were a useable key sequence:

Key             Binding
------------------------
a               bar

a b             foo


I think that this output should only show the "a" binding.


-Phil




In GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
 version 1.16.0, Xaw scroll bars) of 2023-09-21 built on phil-lp
Repository revision: 01b80a6f0e40a4390717a79a73c61899e2ec2968
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 
11.0.12101004
System Description: Ubuntu 22.04.3 LTS

Configured using:
 'configure --prefix=/home/phil/emacs/trunk/usr/local
 --with-x-toolkit=lucid --without-sound
 '--program-transform-name=s/^ctags$/ctags_emacs/''

Configured features:
CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG JSON
LCMS2 LIBSELINUX LIBXML2 MODULES NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP
SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS TREE_SITTER WEBP X11 XDBE XIM
XPM LUCID ZLIB

Important settings:
  value of $LC_MONETARY: en_NZ.UTF-8
  value of $LC_NUMERIC: en_NZ.UTF-8
  value of $LC_TIME: en_NZ.UTF-8
  value of $LANG: en_GB.UTF-8
  value of $XMODIFIERS: @im=ibus
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message mailcap yank-media puny dired
dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg rfc6068
epg-config gnus-util text-property-search time-date subr-x mm-decode
mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader
sendmail rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils
misearch multi-isearch tabify rect help-fns radix-tree help-mode
cl-loaddefs cl-lib rmc iso-transl tooltip cconv eldoc paren electric
uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel
term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image
regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu
timer select scroll-bar mouse jit-lock font-lock syntax font-core
term/tty-colors frame minibuffer nadvice seq simple cl-generic
indonesian philippine cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
composite emoji-zwj charscript charprop case-table epa-hook
jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs
theme-loaddefs faces cus-face macroexp files window text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget keymap
hashtable-print-readable backquote threads dbusbind inotify lcms2
dynamic-setting system-font-setting font-render-setting cairo x-toolkit
x multi-tty move-toolbar make-network-process emacs)

Memory information:
((conses 16 41433 20881) (symbols 48 5493 0) (strings 32 15472 1361)
 (string-bytes 1 424814) (vectors 16 10000)
 (vector-slots 8 155720 17242) (floats 8 28 19) (intervals 56 411 0)
 (buffers 984 11))

Message #8 received at 66792 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Phil Sainty <psainty <at> orcon.net.nz>,
 Stefan Monnier <monnier <at> iro.umontreal.ca>
Cc: 66792 <at> debbugs.gnu.org
Subject: Re: bug#66792: 30.0.50;
 describe-keymap shows unreachable parent map bindings
Date: Sat, 28 Oct 2023 16:56:04 +0300

> Date: Sun, 29 Oct 2023 02:34:41 +1300
> From: Phil Sainty <psainty <at> orcon.net.nz>
> 
> The following code demonstrates this bug involving parent keymaps:
> 
> ;; The parent keymap binds key sequence "a b"
> ;; (making "a" a prefix key with a submap).
> 
> (defvar my-keymap-parent
>    (let ((map (make-sparse-keymap)))
>      (define-key map (kbd "a b") 'foo)
>      map))
> 
> ;; The child keymap binds a command directly to "a" meaning
> ;; that the parent's submap is not accessible from the child.
> 
> (defvar my-keymap-child
>    (let ((map (make-sparse-keymap)))
>      (set-keymap-parent map my-keymap-parent)
>      (define-key map (kbd "a") 'bar)
>      map))
> 
> ;; However (describe-keymap 'my-keymap-child) displays the "a b"
> ;; binding as if it were a useable key sequence:
> 
> Key             Binding
> ------------------------
> a               bar
> 
> a b             foo
> 
> 
> I think that this output should only show the "a" binding.

Adding Stefan.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.