branch: elpa/org-tree-slide
commit 508157fb2198c449f4a61c967ce02f1aadeb3772
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@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 <tak...@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)
