procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use key-translate instead of keyboard-translate

Browse source 
As a consequence of the discussions in Bug#65735, move to using the
new key-translate function instead of the deprecated
keyboard-translate.

For future maintainers: ?\C-? or ?\177 do not mean "DEL" with
key-translate, you have to use "DEL".

* lisp/simple.el (normal-erase-is-backspace-mode): Use key-translate.
* lisp/term/bobcat.el (terminal-init-bobcat): Use key-translate.
This commit is contained in:
Robert Pluim 2023-09-07 16:56:06 +02:00
parent ca9f0e75b1
commit 095d64577c
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/simple.el
View file

@ -10671,10 +10671,10 @@ See also `normal-erase-is-backspace'."
(t
(if enabled
(progn
(keyboard-translate ?\C-h ?\C-?)
(keyboard-translate ?\C-? ?\C-d))
(keyboard-translate ?\C-h ?\C-h)
(keyboard-translate ?\C-? ?\C-?))))
(key-translate "C-h" "DEL")
(key-translate "DEL" "C-d"))
(key-translate "C-h" "C-h")
(key-translate "DEL" "DEL"))))
(if (called-interactively-p 'interactive)
(message "Delete key deletes %s"

4
lisp/term/bobcat.el
View file

@ -3,8 +3,8 @@
(defun terminal-init-bobcat ()
"Terminal initialization function for bobcat."
;; HP terminals usually encourage using ^H as the rubout character
(keyboard-translate ?\177 ?\^h)
(keyboard-translate ?\^h ?\177))
(key-translate "DEL" "C-h")
(key-translate "C-h" "DEL"))
(provide 'term/bobcat)