;; NO spell check for embedded snippets
(defadvice org-mode-flyspell-verify (after org-mode-flyspell-verify-hack activate)
(let* ((rlt ad-return-value)
(begin-regexp "^[ \t]*#\\+begin_\\(src\\|html\\|latex\\|example\\|quote\\)")
(end-regexp "^[ \t]*#\\+end_\\(src\\|html\\|latex\\|example\\|quote\\)")
(case-fold-search t)
b e)
(when ad-return-value
(save-excursion
(setq b (re-search-backward begin-regexp nil t))
(if b (setq e (re-search-forward end-regexp nil t))))
(if (and b e (< (point) e)) (setq rlt nil)))
(setq ad-return-value rlt)))
कृपया ध्यान दें कि फ्लाईस्पेल द्वारा ispell-Skip-region-alist का उपयोग नहीं किया जाता है।
Emacs24.3, 24.4, 24.5, 25.1 पर टेस्ट बिलिन ऑर्ग-मोड के साथ
अधिकांश उपयोगकर्ता डिफ़ॉल्ट रूप से फ्लाईस्पेल चालू करते हैं। इतना ऊपर कोड पर्याप्त है।
लेकिन मैं org फ़ाइल में फ्लाईस्पेल-मोड को सक्षम नहीं करता। मैं M-x flyspell-buffer
बार-बार मैन्युअल रूप से पसंद करता हूं । इसलिए मुझे (flyspell-mode 1) (flyspell-mode -1)
ऑर्ग-मोड-हुक की जरूरत है। हां, इसके बाद फ्लाईस्पेल-मोड को बंद करें। उद्देश्य यह सुनिश्चित करना है कि ऑर्ग-मोड का डिफ़ॉल्ट विधेय लोड किया गया है।
flyspell-generic-check-word-predicate
, अगर यह पहले से ही आविष्कार नहीं किया गया है। यहाँ फ्लाईस्पेल के लिए संबंधित थ्रेड का उपयोग किया गया हैflyspell-generic-check-word-predicate
: superuser.com/a/345461/206164 ; और, यहाँ ispell का उपयोग करने के लिए एक अर्ध-संबंधित धागा हैispell-skip-region-alist
, लेकिन फ़्लाईस्पेल से संबंधित नहीं है: emacs.stackexchange.com/a/2103/2287