[xyzzy:04122] substitute-key-definition

[Hiroshi Saito <HiroshiSaito@xxxxxxx>]

亀井さん、こんばんわ。
サイトウです。

keymap.lの
substitute-key-definition について要望です。
;;=== OLD
(defun substitute-key-definition (olddef newdef &optional (keymap *global-keymap*))
  (dolist (x (expand-command-keys (command-keys olddef keymap nil)))
    (define-key keymap x newdef))
  t)
;;=== NEW
(defun substitute-key-definition (olddef newdef &optional (keymap *global-keymap*) (oldkeymap keymap))
  (dolist (x (expand-command-keys (command-keys olddef oldkeymap nil)))
    (define-key keymap x newdef))
  t)

という具合に参照すべきキーマップを引数で指定できるように
変更して頂けないでしょうか？

そうしないと、見に行くキーマップと設定するキーマップが同じになって
しまいます。



-----------------------------------
サイトウ ヒロシ
HiroshiSaito@xxxxxxx