+ :keymap org-show-mode-map
+
+ (if org-show-mode
+ ;; we are in org-show mode
+ (progn
+ ;; turn off flyspell mode
+ (if flyspell-mode
+ (progn
+ (setq *org-show-flyspell-mode* t)
+ (flyspell-mode-off))
+ (setq *org-show-flyspell-mode* nil)))
+ ;; we are leaving flyspell mode
+ (when *org-show-flyspell-mode*
+ (flyspell-mode-on))
+
+ ;; close the show.
+ (when *org-show-running*
+ (org-show-stop-slideshow))))