[nongnu] elpa/org-tree-slide 4bf4a2ddd1 021/144: Reduce redundant processing

[ELPA Syncer]

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

    Reduce redundant processing
---
 ChangeLog         |  4 ++++
 org-tree-slide.el | 19 +++++++++++--------
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e729a305cd..c2e94a7be2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-12-08  Takaaki ISHIKAWA  <takaxp@ieee.org>
+
+       * org-tree-slide.el (ots-update-modeline): Reduce redundant processing
+
 2011-12-07  Takaaki ISHIKAWA  <takaxp@ieee.org>
 
        * org-tree-slide.el: Add a new profile to control narrowing status
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 9c6482120c..e41d29fb77 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -28,6 +28,7 @@
 ;;    The latest version of the org-mode at http://orgmode.org/ is recommended.
 ;;
 ;;; History:
+;;    v2.3.2 (2011-12-08@09:22) # Reduce redundant processing
 ;;    v2.3.1 (2011-12-07@20:30) # Add a new profile to control narrowing status
 ;;    v2.3.0 (2011-12-07@16:17) # Support displaying a slide number
 ;;    v2.2.0 (2011-12-07@02:15) # Support minor mode
@@ -58,7 +59,7 @@
 (require 'org)
 (require 'org-timer)
 
-(defconst org-tree-slide "2.3.1"
+(defconst org-tree-slide "2.3.2"
   "The version number of the org-tree-slide.el")
 
 (defgroup org-tree-slide nil
@@ -155,11 +156,8 @@
 (defvar org-tree-slide-mode-hook nil)
 (defvar display-tree-slide-string nil)
 (define-minor-mode org-tree-slide-mode
-  "A presentation tool for org-mode.
-
-"
-  :lighter (:eval (if (ots-active-p) (format " %s" (ots-count-slide (point)))
-                   " TSlide"))
+  "A presentation tool for org-mode."
+  :lighter (:eval (ots-update-modeline))
   :keymap org-tree-slide-mode-map
   :group 'org-tree-slide
   :require 'org
@@ -171,6 +169,12 @@
        (run-hooks 'org-mode-slide-mode-hook))
     (ots-abort)))
 
+(defvar ots-slide-number " TSlide")
+(defun ots-update-modeline ()
+  (if (and (ots-active-p) (org-on-heading-p))
+      (setq ots-slide-number (format " %s" (ots-count-slide (point))))
+    ots-slide-number))
+
 (defun org-tree-slide-play-with-timer ()
   "Start slideshow with setting a count down timer."
   (interactive)
@@ -462,8 +466,7 @@
 (defun ots-count-slide (target-point)
   (save-excursion
     (save-restriction
-      (widen)
-      (ots-move-to-the-first-heading)
+      (ots-move-to-the-first-heading)  ; include widen
       (let
          ((count 0)
           (previous-point 0)