[nongnu] elpa/org-tree-slide 508157fb21 104/144: Avoid max-lisp-eval-depth error #29

[ELPA Syncer]

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

    Avoid max-lisp-eval-depth error #29
---
 ChangeLog         |  2 +-
 org-tree-slide.el | 11 ++++++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6ae211b002..cb748c2c6c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
 2018-11-26  Takaaki ISHIKAWA  <takaxp@ieee.org>
 
        * org-tree-slide.el: Extract header colors from default face of frame
-       - the implementation of org-tree-slide-header-overlay-face is updated 
so that user don't need to set the variable explicitly. In case user customized 
theme is updated after loading this package, an appropriate function for 
updating the face spec should be run in `org-tree-slide-play-hook'. For 
instance,
+       - the implementation of `org-tree-slide-header-overlay-face' is updated 
so that user don't need to set the variable explicitly. In case user customized 
theme is updated after loading this package, an appropriate function for 
updating the face spec should be run in `org-tree-slide-play-hook'. For 
instance,
          (defun my-reload-header-face ()
         (face-spec-set 'org-tree-slide-header-overlay-face
                  `((t (:bold t :foreground ,(face-foreground 'default)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index a828b196e9..26eaddae3f 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2011-2018 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
-;; Version: 2.8.9
+;; Version: 2.8.10
 ;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
 ;; Twitter: @takaxp
 ;; URL: https://github.com/takaxp/org-tree-slide
@@ -77,7 +77,7 @@
 (require 'org-timer)
 ;;(require 'org-clock)                 ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.8.9"
+(defconst org-tree-slide "2.8.10"
   "The version number of the org-tree-slide.el.")
 
 (defgroup org-tree-slide nil
@@ -895,12 +895,13 @@ Some number of BLANK-LINES will be shown below the 
header."
 
    If the position does not exist in the buffer, then return nil."
   (beginning-of-line)
-  (if (and (not (org-tree-slide--heading-skip-p)) ;if the header has to be 
skipped
+  ;; if the header has to be skipped
+  (if (and (not (org-tree-slide--heading-skip-p))
            (org-at-heading-p))
       (point)
     (progn
-      (outline-previous-heading)      ;go to previous heading
-      (org-tree-slide--beginning-of-tree)) ;recursion until a visible heading 
is found
+      (when (outline-previous-heading)
+        (org-tree-slide--beginning-of-tree)))
     )) ; return position or nil.
 
 (provide 'org-tree-slide)