[nongnu] elpa/org-tree-slide 09e99877d7 045/144: Fix a bug for an org buffer without header

[ELPA Syncer]

branch: elpa/org-tree-slide
commit 09e99877d75b9b0e62ce07e20ccc6ed83adb0be0
Author: Takaaki ISHIKAWA <tak...@ieee.org>
Commit: Takaaki ISHIKAWA <tak...@ieee.org>

    Fix a bug for an org buffer without header
---
 ChangeLog         | 5 +++++
 README.org        | 3 ++-
 org-tree-slide.el | 6 ++++--
 3 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5a7e14aec0..2679701550 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-18  Takaaki ISHIKAWA  <tak...@ieee.org>
+
+       * org-tree-slide.el (org-tree-slide-move-next-tree): Fix a bug
+       Support an org buffer without any header
+
 2011-12-17  Takaaki ISHIKAWA  <tak...@ieee.org>
 
        * org-tree-slide.el: org-tree-slide-skip-done set nil as default
diff --git a/README.org b/README.org
index 17627649b4..1dfd82f118 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:      Takaaki Ishikawa
 #+EMAIL:       tak...@ieee.org
 #+STARTUP:     content
-#+Last Update: 2011-12-17@21:23
+#+Last Update: 2011-12-18@00:50
 
 * 1. What's this?
 
@@ -203,6 +203,7 @@ see also ChangeLog
 |---------+------------------+-----------------------------------------------|
 | Version | Date             | Description                                   |
 |---------+------------------+-----------------------------------------------|
+| v2.5.3  | 2011-12-18@00:50 | Fix a bug for an org buffer without header    |
 | v2.5.2  | 2011-12-17@17:52 | Set presentation profile as the default       |
 | v2.5.1  | 2011-12-17@13:34 | org-tree-slide-skip-done set nil as default   |
 | v2.5.0  | 2011-12-12@18:16 | Remove auto-play function (TBD)               |
diff --git a/org-tree-slide.el b/org-tree-slide.el
index a03e5e62eb..a8c25aa169 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -64,7 +64,7 @@
 (require 'org-timer)
 (require 'org-clock)                   ; org-clock-in, -out, -clocking-p
 
-(defconst org-tree-slide "2.5.2"
+(defconst org-tree-slide "2.5.3"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -334,7 +334,9 @@ Profiles:
   (when (ots-active-p)
     (message "   Next >>")
     (cond ((or (and (ots-before-first-heading-p) (not (org-on-heading-p)))
-             (= (point-at-bol) 1)) ; support single top level tree
+              ;; support single top level tree
+              ;; FIXME: no header org buffer + CONTENT view is not supported
+              (and (= (point-at-bol) 1) (not (ots-narrowing-p))))
           (ots-outline-next-heading))
          ((or (ots-first-heading-with-narrow-p) (not (org-on-heading-p)))
           (hide-subtree)