mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

(key-translate-select): Minor tweaks

Browse source 
* lisp/keymap.el (key-translate-select): Rename from
`key-select-translation` so as to stick to the `key-translate-` prefix.
Silence compilation warning.
This commit is contained in:
Stefan Monnier 2024-10-03 11:55:58 -04:00
parent 3139ce7ad4
commit 0894d3835e
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/keymap.el
View file

@ -424,7 +424,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\".
@ -454,6 +454,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)))
@ -470,7 +471,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)