@kyanny's blog

My life. Opinions are my own.

term/bobcat を prefix key があるときは無効、という挙動にしたい

cperl-mode で C-c C-h P で perldoc を開く、とかのときにも term/bobcat が効いてしまっているので、 C-c [backspace] P と押さなくてはならず、違和感がある。のでどうにかしたい。

;; -*- no-byte-compile: t -*-

(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))

;;; arch-tag: 754e4520-0a3e-4e6e-8ca5-9481b1f85cf7
;;; bobcat.el ends here
(load "term/bobcat")
(when (fboundp 'terminal-init-bobcat)
  (terminal-init-bobcat))

ということなので、 prefix key が押されていたら keyborad-translate をもう一度呼ぶ、みたいなことをしたらいいんだろうか。うーん、ちょっとよくわからず。でも hook とかがありそうな気もする・・・。