branch: externals/hyperbole
commit 67c06e08abb38f8ca2c03f9e1bd160f9a2f090cc
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@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 <r...@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))
