[nongnu] elpa/org-tree-slide 0abef6864f 069/144: Suppress an error message from org-timer

[ELPA Syncer]

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

    Suppress an error message from org-timer
---
 ChangeLog         | 3 +++
 README.org        | 3 ++-
 org-tree-slide.el | 3 ++-
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 32544f7a25..b8bc449c08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2015-01-12  Takaaki ISHIKAWA  <takaxp@ieee.org>
 
+       * org-tree-slide.el (ots-stop): Suppress an error message from org-timer
+    - When the presentation start without any timer setting, `org-timer-stop' 
reports an error "No timer running". Updated code supresses the report.
+
        * org-tree-slide.el (org-tree-slide-content): Hide skipped slides when 
CONTENT mode
        - Use `ots-skip-outline-level' in `ots-slide-content' (#8)
          Thanks to Eike Kettner
diff --git a/README.org b/README.org
index ee833a66fc..731c01f4e4 100644
--- a/README.org
+++ b/README.org
@@ -2,7 +2,7 @@
 #+AUTHOR:      Takaaki Ishikawa
 #+EMAIL:       takaxp@ieee.org
 #+DATE:                2015-01-12
-#+UPDATE:      18:34:09
+#+UPDATE:      19:58:48
 #+STARTUP:     content
 
 * 1. What's this?
@@ -219,6 +219,7 @@ see also ChangeLog
 
|---------+------------------+-------------------------------------------------|
 | Version | Date             | Description                                     
|
 
|---------+------------------+-------------------------------------------------|
+| v2.7.2  | 2015-01-12@19:56 | Suppress an error message from org-timer        
|
 | v2.7.1  | 2015-01-12@18:28 | Hide skipped slides when CONTENT mode           
|
 | v2.7.0  | 2013-07-21@05:21 | Support buffers without headings                
|
 | v2.6.8  | 2013-02-19@12:49 | Added a flag to control face setting            
|
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 52a4b326b2..2de9a719da 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -487,7 +487,8 @@ Profiles:
           (org-cycle '(64)))
          (t nil)))
   (ots-hide-slide-header)
-  (org-timer-stop)
+  (when org-timer-start-time
+      (org-timer-stop))
   (when org-tree-slide-heading-emphasis
     (ots-apply-custom-heading-face nil))
   (when (and org-tree-slide-skip-done