emacs - 如何在emacs中切换区域中的字母大小写

Question

如何在 Emacs 中切换区域文本的字母大小写(将大写字母切换为小写，小写字母切换为大写)？

列出了用于转换的命令，但没有用于切换的命令。

示例:

请切换我的信箱

应该变成:

请切换我的信 CASE

Answer 1

我为你写的；它没有经过彻底的测试，但它似乎可以满足您的需求。

它背后的逻辑是遍历文本中的每个字符。如果字符等于小写字符，则将其附加到大写返回字符串。如果没有，请将其附加在小写中。最后，删除区域并插入返回字符串。

它可以立即在一页文本上使用，尽管我会谨慎地在大文本上使用它(应该还可以)。

(defun toggle-case ()
  (interactive)
  (when (region-active-p)
    (let ((i 0)
      (return-string "")
      (input (buffer-substring-no-properties (region-beginning) (region-end))))
      (while (< i (- (region-end) (region-beginning)))
    (let ((current-char (substring input i (+ i 1))))
      (if (string= (substring input i (+ i 1)) (downcase (substring input i (+ i 1))))
          (setq return-string
            (concat return-string (upcase (substring input i (+ i 1)))))
        (setq return-string
          (concat return-string (downcase (substring input i (+ i 1)))))))
    (setq i (+ i 1)))
      (delete-region (region-beginning) (region-end))
      (insert return-string))))