Emacs 应该将单词的第二个字符设置为小写

Question

在大多数情况下，我正在写德语文本。大多数单词以大写字母开头，后跟小写字母。有时我打字太快，单词的第二个字母也大写。为了解决这个问题，我问自己是否可以编写一个自动更改第二个字母大小写的函数。可选的，只有当第三个和后面的是小写时才会发生。您知道这是否可行吗？您有什么建议吗？

Answer 1

这是一个“永远在线”的版本，可以在您输入时进行修复。它会让您键入所有大写单词，但一旦检测到混合大小写，它就会将其大写。

(defun blah (s e l)
  (let ((letter (string-to-char (word-before-point))))
    (if (and (eq letter (upcase letter))
             (not (eq (char-before) (upcase (char-before)))))
        (capitalize-word -1))))
(add-to-list 'after-change-functions 'blah)