刪除所有字體鎖定面（除flyspell-flyspell-duplicate外）

Question

若要從使用2秒空閒計時器（自定義函數梳理整個緩衝區）設置的自定義函數的運行時間中減去約.3秒，我使用(font-lock-mode -1)禁用字體鎖定模式。副作用是我的flyspell-incorrect和flyspell-duplicate被刪除。將這些fly字體再次放回(flyspell-region (window-start) (window-end))費用比.3秒多了很多。所以，我想通過移除除了flyspell-incorrect和flyspell-duplicate之外的所有字體鎖字體來中途停留。有沒有一種方法可以將條件添加到font-core以下的代碼片段中，該代碼片段可以保留flyspell字體，但可以刪除其他所有內容？

;; Turn off Font Lock mode. 

(unless mode 
    ;; Remove `font-lock-face' as an alias for the `face' property. 
    (set (make-local-variable 'char-property-alias-alist) 
(copy-tree char-property-alias-alist)) 
    (let ((elt (assq 'face char-property-alias-alist))) 
    (when elt 
(setcdr elt (remq 'font-lock-face (cdr elt))) 
(when (null (cdr elt)) 
    (setq char-property-alias-alist 
    (delq elt char-property-alias-alist)))))) 

Answer 1

令我驚訝的是，事實證明，flyspell使用覆蓋,而不是字體鎖。我的問題發生是因爲我未正確使用remove-overlays，因爲未能包含存在的精確值。 remove-overlays的不當使用會消除該地區的整個小貓 - kaboodle - 包括蠅類覆蓋物。以下相關主題介紹瞭如何通過確保正確的值是使用remove-overlays時，如果存在一個值始終包含來避免這個問題：

https://stackoverflow.com/a/23773934/2112489

這裏是一個有用的小功能，看是怎麼回事背後場景：

(defun reveal-overlays (&optional beg end) 
(interactive) 
    (let* (
     (beg (if beg beg (window-start))) 
     (end (if end end (window-end)))) 
    (overlay-recenter end) 
    (dolist (o (overlays-in beg end)) 
     (when o 
     (message "%s\n%s\n" (overlay-properties o) o))) 
    (switch-to-buffer "*Messages*"))) 

Answer 2

(font-lock-mode -1)不會刪除flyspell-incorrect和flyspell-duplicate thingies。它只是禁用他們的視覺效果（用你發佈的代碼）。因此，您可以事後重新設置char-property-alias-alist，並且這些蠅類物品將會「立即」再次顯示。

我真的不知道你在做什麼，這是通過字體鎖減緩了0.3秒。也許還有另一種方法可以避免那些比(font-lock-mode -1)長0.3秒的方法，因爲啓用/禁用字體鎖非常昂貴。