[nongnu] elpa/org-tree-slide 98fec74fcf 122/144: Now depends on emacs 24.3

[ELPA Syncer]

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

    Now depends on emacs 24.3
---
 ChangeLog         |  5 +++++
 org-tree-slide.el | 15 ++++++---------
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index eb4a4e82c5..b7c4dda328 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2020-06-11  Takaaki ISHIKAWA  <takaxp@ieee.org>
+
+       * org-tree-slide.el: Depends on emacs 24.3
+       Replace org-tree-slide--narrowing-p with buffer-narrowed-p.
+
 2020-06-05  Takaaki ISHIKAWA  <takaxp@ieee.org>
 
        * org-tree-slide.el (org-tree-slide-indicator): New plist to control 
showing messages in mini buffer
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 77517185f4..68185c1f93 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -3,7 +3,8 @@
 ;; Copyright (C) 2011-2020 Takaaki ISHIKAWA
 ;;
 ;; Author: Takaaki ISHIKAWA <takaxp at ieee dot org>
-;; Version: 2.8.15
+;; Version: 2.8.16
+;; Package-Requires: ((emacs "24.3"))
 ;; Maintainer: Takaaki ISHIKAWA <takaxp at ieee dot org>
 ;; Twitter: @takaxp
 ;; URL: https://github.com/takaxp/org-tree-slide
@@ -364,13 +365,13 @@ Profiles:
         (message "%s" msg)))
     (cond
      ;; displaying a slide, not the contents
-     ((and (org-tree-slide--narrowing-p)
+     ((and (buffer-narrowed-p)
            (org-tree-slide--last-tree-p (point)))
       (org-tree-slide-content))
      ((or
        (or (and (org-tree-slide--before-first-heading-p)
                 (not (org-at-heading-p)))
-           (and (= (point-at-bol) 1) (not (org-tree-slide--narrowing-p))))
+           (and (= (point-at-bol) 1) (not (buffer-narrowed-p))))
        (or (org-tree-slide--first-heading-with-narrow-p)
            (not (org-at-heading-p))))
       (run-hooks 'org-tree-slide-before-move-next-hook)
@@ -914,10 +915,6 @@ If the cursor exist before first heading, do nothing."
   "Return nil, if the current `major-mode' is not `org-mode'."
   (and org-tree-slide-mode (equal major-mode 'org-mode)))
 
-(defun org-tree-slide--narrowing-p ()
-  "Check the current status if narrowing or not."
-  (buffer-narrowed-p))
-
 (defun org-tree-slide--before-first-heading-p ()
   "Extension of `org-before-first-heading-p' to support org 6.33x.
 #+TITLE: title     ; t
@@ -926,7 +923,7 @@ If the cursor exist before first heading, do nothing."
   hoge             ; nil
 ** second          ; nil
 ** third           ; nil"
-  (and (org-before-first-heading-p) (not (org-tree-slide--narrowing-p))))
+  (and (org-before-first-heading-p) (not (buffer-narrowed-p))))
 
 (defun org-tree-slide--first-heading-with-narrow-p ()
   "Check the current point is on the first heading with narrowing.
@@ -936,7 +933,7 @@ If the cursor exist before first heading, do nothing."
 *** second         ; nil
     hoge           ; nil
 *** third          ; nil"
-  (and (org-tree-slide--narrowing-p) (= (point-at-bol) (point-min))))
+  (and (buffer-narrowed-p) (= (point-at-bol) (point-min))))
 
 (defun org-tree-slide--all-skip-p ()
   "Check the buffer has at least one slide to be shown."