如何在不带变音符号/重音符号的文本中搜索阿拉伯语单词？

阿拉伯语与其他一些语言一样，有变音符号以增强发音。对于一个单词应该写多少个音调符号没有约定。有些人仅使用最小值（我更喜欢）来消除歧义，而有些人则多余地使用它们或仅出于美学目的。因此，与一个单词相关联的发音符号和发音符号存在很大差异。当我isearch-forward/backward按时C-s/r，如果在没有发音符号的情况下在搜索迷你缓冲区中键入该单词，就会出现问题，如果该单词带有发音符号，它将不会与文本中的相同单词匹配，从而使寻找带有潜在发音符号的单词的任务变得不尽人意。

有没有办法使搜索/正则表达式搜索不知道变音符号？我希望会有一个答案可以扩展到包括regexp C-M-s/r和grep搜索，我经常在头盔弹丸中使用它来搜索多文件乳胶项目中的单词。

更新
很高兴看到Emacs在其所有搜索功能中都对文本进行了剥离（从重音符号/变音符号/您命名），然后将其匹配为默认行为，该默认行为可能会按需关闭前缀不管手头有什么语言 通常，当我搜索某些东西时，我并不希望最好的编辑器（Emacs）会因为某些变音符号或重音而失败，而这些变音符号或重音很少用于完成平凡的文本琐事。

这是一个粗略的开始，基于此答案中组合字符的列表（然后扩展）。（将其标记为社区Wiki-请对此进行编辑和改进！）

(defconst arabic-diacritics '(#x064b #x064c #x064d #x064e #x064f #x0650 #x0651 #x0652 #x0653 #x0654 #x0655 #x0670)
  "Unicode codepoints for Arabic combining characters.")
(defconst arabic-diacritics-regexp (regexp-opt (mapcar #'string arabic-diacritics)))

(defconst arabic-equivalents
  '(
    ;; "alef" is equivalent to "alef with hamza above" etc
    (#x0627 #x0623 #x0625 #x0622)))

;; (require 'cl-lib)    
;; (defun arabic-strip-diacritics (string)
;;   (cl-reduce (lambda (s c) (remove c s)) arabic-diacritics :initial-value string))

(defun arabic-search-without-diacritics (string)
  (interactive (list (read-string "Search for: " nil nil nil t)))
  (let ((regexp
         (apply #'concat
                (mapcar (lambda (c)
                          (let ((equivalents (assq c arabic-equivalents)))
                            (concat
                             (if equivalents
                                 (regexp-opt (mapcar #'string equivalents))
                               (regexp-quote (string c)))
                             arabic-diacritics-regexp "*")))
                        string))))
    (search-forward-regexp regexp)))

因此，如果缓冲区包含“ الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ”，并且我求值(arabic-search-without-diacritics "الحمد لله رب العالمين")，它将找到文本。它也可以与交互工作M-x arabic-search-without-diacritics。

替代方法：

这是一个完整的代码示例，演示了如何Mn从正则表达式匹配项中的规范化字符串中删除变音符号和其他非间距标记（属性）。它适用于给出的示例，而IMO是正确的方法。

(defun kill-marks (string)
  (concat (loop for c across string
                when (not (eq 'Mn (get-char-code-property c 'general-category)))
                collect c)))

(let* ((original1 "your Arabic string here")
      (normalized1 (ucs-normalize-NFKD-string original1))
      (original2 "your other Arabic string here")
      (normalized2 (ucs-normalize-NFKD-string original2)))
  (equal
   (replace-regexp-in-string "." 'kill-marks normalized1)
   (replace-regexp-in-string "." 'kill-marks normalized2)))