[elpa] externals/hyperbole 67c06e0 4/4: kotl-mode.el - M-< and M-> re-narrow to editable region if expanded

[ELPA Syncer]

branch: externals/hyperbole
commit 67c06e08abb38f8ca2c03f9e1bd160f9a2f090cc
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    kotl-mode.el - M-< and M-> re-narrow to editable region if expanded
---
 ChangeLog         | 4 ++++
 kotl/kexport.el   | 3 ++-
 kotl/kotl-mode.el | 6 ++++++
 3 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index c076e18..ceeff3b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2021-05-23  Bob Weiner  <rsw@gnu.org>
 
+* kotl/kotl-mode.el (kotl-mode:beginning-of-buffer,
+    kotl-mode:end-of-buffer): Re-narrow Koutline to editable
+    region if it has been expanded.
+
 * test/kotl-mode-tests.el (kotl-mode-indent-cell-changes-level):
     Ensure always at the beginning of buffer for the test.
   test/hbut-tests.el (hbut-pathname-env-variable-test):
diff --git a/kotl/kexport.el b/kotl/kexport.el
index 13ab503..d5dcbf1 100644
--- a/kotl/kexport.el
+++ b/kotl/kexport.el
@@ -14,7 +14,8 @@
 ;;
 ;; Within JavaScript-enabled web browsers, koutline parent cells exported to
 ;; HTML may be expanded and collapsed interactively.  This feature utilizes
-;; a small 20-line JavaScript snippet is included in each exported koutline.
+;; a small 20-line JavaScript snippet that is included in each exported
+;; koutline. 
 
 ;;; Code:
 ;;; ************************************************************************
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 8363c32..ce5bd16 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -1461,6 +1461,9 @@ See `forward-paragraph' for more information."
   (interactive)
   (kotl-mode:maintain-region-highlight)
   (goto-char (point-min))
+  (when (= (point) 1)
+    ;; Buffer is expanded past editable area, reset narrowing via kotl-mode.
+    (kotl-mode))
   ;; Move to cell start.
   (goto-char (kcell-view:start)))
 
@@ -1537,6 +1540,9 @@ Leave point at the start of the cell."
   (interactive)
   (kotl-mode:maintain-region-highlight)
   (goto-char (point-max))
+  (when (looking-back "\\]\\s-*")
+    ;; Internal Koutline structures are exposed, re-narrow the Koutline
+    (kotl-mode))
   ;; To move to cell end.
   (kotl-mode:to-valid-position t)
   (point))