From 596a0f21791cf9d1ffc87e9e142ff81f853c0513 Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Fri, 13 May 2022 13:09:55 +0530 Subject: [PATCH] describe-keymap: Suggest symbol at point * lisp/help-fns.el (describe-keymap): Suggest symbol at point if it is a keymap. * etc/NEWS: Announce the change. --- etc/NEWS | 5 +++++ lisp/help-fns.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index e09834c..1cbc9cd 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -562,6 +562,11 @@ minor modes are listed after the major mode. The apropos commands will now select the apropos window if 'help-window-select' is non-nil. +--- +*** 'describe-keymap' now considers the symbol at point. +'describe-keymap' suggests the symbol at point as the default +candidate if it is a keymap. + ** Outline Mode +++ diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 927a4f0..807498f 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1904,7 +1904,10 @@ in `describe-keymap'. See also `Searching the Active Keymaps'." When called interactively, prompt for a variable that has a keymap value." (interactive - (let* ((km (help-fns--most-relevant-active-keymap)) + (let* ((sym (symbol-at-point)) + (km (or (and (keymapp (ignore-errors (symbol-value sym))) + sym) + (help-fns--most-relevant-active-keymap))) (val (completing-read (format-prompt "Keymap" km) obarray -- 2.33.1