[nongnu] elpa/org-present 9781d86b7a 14/47: Fix the user set cursor being overridden

[ELPA Syncer]

branch: elpa/org-present
commit 9781d86b7a8d9d225ca9cc0243ef9fa1b2cf1aab
Author: Jaseem Abid <jaseemabid@gmail.com>
Commit: Jaseem Abid <jaseemabid@gmail.com>

    Fix the user set cursor being overridden
    
    Function `org-present-read-only' sets the value of the cursor to nil
    effectual throwing away the user set configuration. Using a temp
    variable `org-present-cursor-cache' to fix that.
---
 org-present.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/org-present.el b/org-present.el
index 0afd3e66f5..98fbd58dbb 100644
--- a/org-present.el
+++ b/org-present.el
@@ -68,6 +68,8 @@
 
 ;; how much to scale up font size
 (defvar org-present-text-scale 5)
+(defvar org-present-cursor-cache (or cursor-type nil)
+  "Holds the user set value of cursor for `org-present-read-only'")
 (defvar org-present-overlays-list nil)
 
 (define-minor-mode org-present-mode
@@ -164,14 +166,15 @@
   "Make buffer read-only."
   (interactive)
   (setq buffer-read-only t)
-  (setq cursor-type nil)
+  (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 t)
+  (setq cursor-type org-present-cursor-cache)
   (define-key org-present-mode-keymap (kbd "SPC") 'self-insert-command))
 
 ;;;###autoload