[nongnu] elpa/org-tree-slide 036a36eec1 112/144: Rename an internal variable

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 036a36eec1cf712d3db155572aed325daa372eb5
Author: Takaaki ISHIKAWA <takaxp@ieee.org>
Commit: Takaaki ISHIKAWA <takaxp@ieee.org>

    Rename an internal variable
---
 ChangeLog         |  6 +++++-
 org-tree-slide.el | 31 +++++++++++++++++--------------
 2 files changed, 22 insertions(+), 15 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 56741df325..3b357a5242 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,12 @@
+2019-07-30  Takaaki ISHIKAWA  <takaxp@ieee.org>
+
+       * org-tree-slide.el (org-tree-slide-content--pos): Rename
+
 2019-06-30  Boruch Baum  <boruch_baum@gmx.com>
 
        * org-tree-slide.el (org-tree-slide-content): Toggle back to slide
        presentation, to exact position where you left off.
-       (org-tree-slide-content-pos): New variable to support this feature.
+       (org-tree-slide-content--pos): New variable to support this feature.
 
 2018-11-26  Takaaki ISHIKAWA  <takaxp@ieee.org>
 
diff --git a/org-tree-slide.el b/org-tree-slide.el
index a62f27f8a7..dede32cfa6 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -1,9 +1,9 @@
 ;;; org-tree-slide.el --- A presentation tool for org-mode
 ;;
-;; Copyright (C) 2011-2018 Takaaki ISHIKAWA
+;; Copyright (C) 2011-2019 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
-;; Version: 2.8.13
+;; Version: 2.8.14
 ;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
 ;; Twitter: @takaxp
 ;; URL: https://github.com/takaxp/org-tree-slide
@@ -14,6 +14,7 @@
 ;;             Eike Kettner
 ;;             Stefano BENNATI
 ;;             Matus Goljer
+;;             Boruch Baum
 ;;
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -76,7 +77,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.8.13"
+(defconst org-tree-slide "2.8.14"
   "The version number of the org-tree-slide.el.")
 
 (defgroup org-tree-slide nil
@@ -238,8 +239,6 @@ nil: keep the same position."
   "A hook run before moving to the previous slide.")
 (defvar org-tree-slide-before-content-view-hook nil
   "A hook run before showing the content.")
-(defvar org-tree-slide-content-pos nil
-  "Where to return when toggling function `org-tree-slide-content'.")
 
 ;;;###autoload
 (define-minor-mode org-tree-slide-mode
@@ -309,21 +308,24 @@ Profiles:
   (org-overview)
   (goto-char 1))
 
+(defvar org-tree-slide-content--pos nil
+  "Where to return when toggling function `org-tree-slide-content'.")
+
 ;;;###autoload
 (defun org-tree-slide-content ()
   "Change the display for viewing content of the org file during the slide 
view mode is active."
   (interactive)
   (when (org-tree-slide--active-p)
     (cond
-     (org-tree-slide-content-pos
-;     (widen)
-      (goto-char org-tree-slide-content-pos)
+     (org-tree-slide-content--pos
+      ;; (widen)
+      (goto-char org-tree-slide-content--pos)
       (org-tree-slide--display-tree-with-narrow)
-      (goto-char org-tree-slide-content-pos)
-      (setq org-tree-slide-content-pos nil))
+      (goto-char org-tree-slide-content--pos)
+      (setq org-tree-slide-content--pos nil))
      (t
-      (setq org-tree-slide-content-pos
-        (max (1+ (point-min)) (point)))
+      (setq org-tree-slide-content--pos
+            (max (1+ (point-min)) (point)))
       (run-hooks 'org-tree-slide-before-content-view-hook)
       (widen)
       (org-tree-slide--hide-slide-header)
@@ -333,9 +335,9 @@ Profiles:
              (org-content))
             ((< 2 org-tree-slide-skip-outline-level)
              (org-content (1- org-tree-slide-skip-outline-level))))
-;     (goto-char (point-min))
+      ;;  (goto-char (point-min))
       (redisplay)
-      (goto-char org-tree-slide-content-pos)
+      (goto-char org-tree-slide-content--pos)
       (message "<<  CONTENT  >>")))))
 
 ;;;###autoload
@@ -472,6 +474,7 @@ Profiles:
   (org-tree-slide--apply-custom-heading-face org-tree-slide-heading-emphasis))
 
 (defvar org-tree-slide--previous-line 0)
+
 ;;;###autoload
 (defun org-tree-slide-skip-done-toggle ()
   "Toggle show TODO item only or not."