我使用的是Spacemacs, 我配置了org mode pretty-entties ， 并全局启用。但是遇到一个问题，当我输入 \alpha 它就变成 α , 当时我不需要 关闭全局entties , 因为它很方便。怎么可以在不关闭全局entties的情况下输入原始字符。我已经了解了一种 方法 ，就是，开启 (setq org-hide-emphasis-markers t) ,使用emphasis 字符包裹就可以, 但是它并不完善，比如 ~\S~ 中还是会转换。请问有其它的方法吗？
(with-eval-after-load 'org
;; 设置org mode 特殊字符显示
(setq org-pretty-entities t)
;; 去除org-download 自动添加下载信息
(setq org-download-annotate-function 'ignore)
;; 美化org mode
(setq org-hide-emphasis-markers t)
(font-lock-add-keywords 'org-mode
'(("^ +\\([-*]\\) "
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
(let* ((variable-tuple (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
((x-list-fonts "Lucida Grande") '(:font "Lucida Grande"))
((x-list-fonts "Verdana") '(:font "Verdana"))
((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
(nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))))
(base-font-color (face-foreground 'default nil 'default))
(headline `(:inherit default :weight bold :foreground ,base-font-color))))
(prettify-utils-add-hook org-mode
("[ ]" "☐")
("[X]" "☑")
("[-]" "❍")))
;; setting prettify symbols
(prettify-utils-add-hook prog-mode-hook
("lambda" . ?λ)
("<-" . ?←)
("->" . ?→)
("->>" . ?↠)
("=>" . ?⇒)
("!=" . ?≠)
("<=" . ?≤)
(">=" . ?≥)
("=<<" . (?= (Br . Bl) ?≪))
(">>=" . (?≫ (Br . Bl) ?=)))