martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)