同按键下中英文标点的输入问题

看到了杀哥这篇文章

为了需要即时替换每一个字符，我最后还是定义了一些映射关系

  (let (
        ($replacePairs
         [
          ["，" ","]
          ["。" "."]
          ["；" ";"]
          ["：" ":"]
          ["【" "["]
          ["】" "]"]
          ["（" "("]
          ["）" ")"]
          ["！" "!"]
          ["、" "\\"]
          ["／" "/"]
          ["《" "<"]
          ["》" ">"]
          ["‘" "'"]
          ["’" "'"]
          ["“" "\""]
          ["”" "\""]
          ]
         ))
    (mapcar (lambda(x) (define-key key-translation-map
                (kbd (elt x 0)) (kbd (elt x 1)))) $replacePairs))

暂时用了key-translation-map，这样可以在M-x下使用

说不定有人有一样的需求，分享一下我的代码:P