Emacs: Convert Chinese/Japanese Full-Width/Half-Width Punctuations 🚀

By Xah Lee. Date: . Last updated: .

Here's a command to convert between Full-Width/Half-Width punctuation characters used in Chinese and Japanese text. (全角 半角 转换) [see Unicode: Full-Width Characters]

put this in your Emacs Init File:

(defun xah-convert-english-chinese-punctuation (&optional Begin End ToDirection)
  "Convert punctuation from/to English/Chinese characters.

When called interactively, do current line or selection. The conversion direction is automatically determined.

If `universal-argument' is called, ask user for change direction.

When called in lisp code, Begin End are region begin/end positions. ToDirection must be any of the following string values:


URL `http://xahlee.info/emacs/emacs/elisp_convert_chinese_punctuation.html'
Version: 2012-12-10 2022-05-18 2023-08-26 2023-11-25"
  (let (xp1 xp2 xinputStr xcontainChinese
              [". " "。"]
              [".\n" "。\n"]
              [", " ","]
              [",\n" ",\n"]
              [": " ":"]
              ["; " ";"]
              ["? " "?"] ; no space after
              ["! " "!"]
              ["& " "&"]
              [" (" "("]
              [") " ")"]
              ;; for inside HTML
              [".</" "。</"]
              ["?</" "?</"]
              [":</" ":</"]
              [" " " "]
    (if (and Begin End)
        (setq xp1 Begin xp2 End)
      (if (region-active-p)
          (setq xp1 (region-beginning) xp2 (region-end))
        (setq xp1 (line-beginning-position) xp2 (line-end-position))))
    (setq xinputStr (buffer-substring-no-properties xp1 xp2))

    (when (not ToDirection)
      (setq ToDirection (if current-prefix-arg
                             "Change to: "
                             '("english"  "chinese")

    (setq xcontainChinese
           (lambda (x) (string-match (aref x 1) xinputStr))

    (when (string-equal ToDirection "auto")
       (if xcontainChinese
      (narrow-to-region xp1 xp2)
       (lambda (xx)
           (goto-char (point-min))
           (while (search-forward (aref xx 0) nil t)
             (replace-match (aref xx 1)))))
        ((string-equal ToDirection "chinese") xengToChinesePairs)
        ((string-equal ToDirection "english") (mapcar (lambda (x) (vector (elt x 1) (elt x 0))) xengToChinesePairs))
        (t (user-error "Your 3rd argument 「%s」 isn't valid" ToDirection))))
      (goto-char (point-max)))))

Emacs Chinese Topics