在elisp中设置case-fold-search

Question

在elisp中设置时，Emacs似乎不尊重case-fold-search：

(defun test-case (start end)
  "Replace D to Delta in a region."
  (interactive "r")
  (let
      (
       (case-fold-search nil)
       )
    (narrow-to-region start end)

    (goto-char start)
    (while (search-forward-regexp "D" nil t) (replace-match "Delta" nil t))
    )
  )

在Dublin返回DELTAublin时调用该邮件，我希望它返回Deltaublin。我做错了什么？

Answer 1

你实际上想要传递't'而不是'nil'作为(replace-match)的第一个可选参数。这应该做你想要的。