(defvar emaps-disable-describe-variables nil)
(defun describe-variable--emaps (orig-fn variable &rest them)
  "キーマップを表示するときは数字→文字として表示させる"
  (unless emaps-disable-describe-variables
    (apply orig-fn variable them)
    (when (keymapp (symbol-value variable))
    (let ((emaps-disable-describe-variables t))
      (emaps-describe-keymap variable)))))
(advice-add 'describe-variable :around 'describe-variable--emaps)