[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#55393: describe-keymap: suggest symbol at point
From: |
Visuwesh |
Subject: |
bug#55393: describe-keymap: suggest symbol at point |
Date: |
Fri, 13 May 2022 10:54:12 +0530 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
[வெள்ளி மே 13, 2022] Visuwesh wrote:
> Tags: patch
>
> describe-keymap differs from other describe-* commands in that it does
> not suggest the symbol at point which always annoyed me. This patch
> makes describe-keymap consider the symbol at point first.
>
> [ I hope it is okay to use if-let family of macros in these files now? ]
>
>
>
>
> In GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version
> 1.16.0, Xaw scroll bars)
> Repository revision: ca3858563c7ba8ee3caa82fbd2b7c386ea60c0d3
> Repository branch: master
> Windowing system distributor 'The X.Org Foundation', version 11.0.12013000
> System Description: NixOS 21.11 (Porcupine)
>
> Configured using:
> 'configure
> --prefix=/nix/store/iqqk7iqfwmfc6r78xg2knyq7hww2mhs4-emacs-git-20220225.0
> --disable-build-details --with-modules --with-x-toolkit=lucid
> --with-xft --with-cairo --with-native-compilation'
Turns out I did not git pull master properly so that patch was against
an old master. Updated patch attached here,
>From 1911ea3d4963bc945953886fb625db6c838f19cb Mon Sep 17 00:00:00 2001
From: Visuwesh <visuweshm@gmail.com>
Date: Fri, 13 May 2022 10:52:09 +0530
Subject: [PATCH] describe-keyap: Suggest symbol at point
* lisp/help-fns.el (help-fns--most-relevant-active-keymap): Suggest
the symbol at point if it is a keymap.
* etc/NEWS: Announce the change.
---
etc/NEWS | 5 +++++
lisp/help-fns.el | 19 ++++++++++++-------
2 files changed, 17 insertions(+), 7 deletions(-)
diff --git a/etc/NEWS b/etc/NEWS
index e09834c..54647b8 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..2636ba9 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1884,16 +1884,21 @@ variable with value KEYMAP."
The heuristic to determine which keymap is most likely to be
relevant to a user follows this order:
-1. 'keymap' text property at point
-2. 'local-map' text property at point
-3. the `current-local-map'
+1. symbol at point
+2. 'keymap' text property at point
+3. 'local-map' text property at point
+4. the `current-local-map'
This is used to set the default value for the interactive prompt
in `describe-keymap'. See also `Searching the Active Keymaps'."
- (help-fns-find-keymap-name (or (get-char-property (point) 'keymap)
- (if (get-text-property (point) 'local-map)
- (get-char-property (point) 'local-map)
- (current-local-map)))))
+ (if-let ((sym (symbol-at-point))
+ (sym (when sym (intern-soft sym)))
+ (keymapp (ignore-errors (symbol-value sym))))
+ sym
+ (help-fns-find-keymap-name (or (get-char-property (point) 'keymap)
+ (if (get-text-property (point) 'local-map)
+ (get-char-property (point) 'local-map)
+ (current-local-map))))))
(defvar keymap-name-history nil
"History for input to `describe-keymap'.")
--
2.33.1
- bug#55393: describe-keymap: suggest symbol at point, Visuwesh, 2022/05/13
- bug#55393: describe-keymap: suggest symbol at point,
Visuwesh <=
- bug#55393: describe-keymap: suggest symbol at point, Eli Zaretskii, 2022/05/13
- bug#55393: describe-keymap: suggest symbol at point, Visuwesh, 2022/05/13
- bug#55393: describe-keymap: suggest symbol at point, Eli Zaretskii, 2022/05/13
- bug#55393: describe-keymap: suggest symbol at point, Visuwesh, 2022/05/13
- bug#55393: describe-keymap: suggest symbol at point, Eli Zaretskii, 2022/05/13
- bug#55393: describe-keymap: suggest symbol at point, Visuwesh, 2022/05/13
- bug#55393: describe-keymap: suggest symbol at point, Eli Zaretskii, 2022/05/15
- bug#55393: describe-keymap: suggest symbol at point, Visuwesh, 2022/05/15
- bug#55393: describe-keymap: suggest symbol at point, Eli Zaretskii, 2022/05/15