[nongnu] elpa/org-present f63302a21a 40/47: Merge pull request #35 from komem3/hide-cursor

[ELPA Syncer]

branch: elpa/org-present
commit f63302a21a9f7c9f66f443bf83b7a1150d0bdd9d
Merge: 7414e40632 6c57386522
Author: Ric Lister <rlister+gh@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #35 from komem3/hide-cursor
    
    Fixed that read-only function erase cursor
---
 org-present.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/org-present.el b/org-present.el
index 7fbaf33bcd..40517e628e 100644
--- a/org-present.el
+++ b/org-present.el
@@ -206,25 +206,27 @@
   "Make buffer read-only."
   (interactive)
   (setq buffer-read-only t)
-  (setq org-present-cursor-cache cursor-type
-        cursor-type nil)
   (define-key org-present-mode-keymap (kbd "SPC") 'org-present-next))
 
 (defun org-present-read-write ()
   "Make buffer read-only."
   (interactive)
   (setq buffer-read-only nil)
-  (setq cursor-type org-present-cursor-cache)
   (define-key org-present-mode-keymap (kbd "SPC") 'self-insert-command))
 
 (defun org-present-hide-cursor ()
   "Hide the cursor for current window."
   (interactive)
+  (if cursor-type
+      (setq-local org-present-cursor-cache cursor-type
+            cursor-type nil))
   (internal-show-cursor (selected-window) nil))
 
 (defun org-present-show-cursor ()
   "Show the cursor for current window."
   (interactive)
+  (if org-present-cursor-cache
+      (setq-local cursor-type org-present-cursor-cache))
   (internal-show-cursor (selected-window) t))
 
 ;;;###autoload