From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 3 Oct 2024 15:55:58 +0000 (-0400)
Subject: (key-translate-select): Minor tweaks
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=797bed4c177aba5751803cd130ee237d1277aeed;p=emacs.git

(key-translate-select): Minor tweaks

* lisp/keymap.el (key-translate-select): Rename from
`key-select-translation` so as to stick to the `key-translate-` prefix.
Silence compilation warning.

(cherry picked from commit 0894d3835e8f841045cc7cd9db2184cac35fcbb1)
---

diff --git a/lisp/keymap.el b/lisp/keymap.el
index d53ed702527..abb293e7f23 100644
--- a/lisp/keymap.el
+++ b/lisp/keymap.el
@@ -416,7 +416,7 @@ Interactively, prompt for FROM and TO with `read-char'."
           (aref from-key 0)
           (and to (aref to-key 0)))))
 
-(defun key-select-translation ()
+(defun key-translate-select ()
   "Prompt for a current keyboard translation pair with `completing-read'.
 
 Each pair is formatted as \"FROM -> TO\".
@@ -446,6 +446,7 @@ Return the \"FROM\" as a key string."
        (if (characterp chr)
            (funcall key-code-func chr trans)
          (require 'range)
+         (declare-function range-map "range" (func range))
          (range-map
           (lambda (kc) (funcall key-code-func kc trans))
           chr)))
@@ -462,7 +463,7 @@ Return the \"FROM\" as a key string."
 
 FROM must satisfy `key-valid-p'.  If FROM has no entry in
 `keyboard-translate-table', this has no effect."
-  (interactive (list (key-select-translation)))
+  (interactive (list (key-translate-select)))
   (key-translate from nil))
 
 (defun keymap-lookup (keymap key &optional accept-default no-remap position)