branch: externals/hyperbole
commit 335441dfce09c0f0c928a488e5cf5f2df00bc952
Author: Bob Weiner <bob.wei...@duffandphelps.com>
Commit: Bob Weiner <bob.wei...@duffandphelps.com>
Fix that Action Key did not expand collapsed Koutline trees
---
Changes | 11 +++++++++--
hyperbole.el | 10 ++++++----
kotl/kotl-mode.el | 6 ++++--
3 files changed, 19 insertions(+), 8 deletions(-)
diff --git a/Changes b/Changes
index d0461ed..4570f3e 100644
--- a/Changes
+++ b/Changes
@@ -1,10 +1,17 @@
+2020-07-28 Bob Weiner <r...@gnu.org>
+
+* kotl/kotl-mode.el (kotl-mode): Set outline-regexp so outline-on-heading-p and
+ smart-outline-subtree-hidden-p use it and the Action Key expands cells
properly.
+
+* hyperbole.el (outline-invisible-in-p): Fixed to detect if tree is collapsed
anywhere.
+
2020-07-27 Mats Lidell <ma...@gnu.org>
-* hui-dired-sidebar.el: Support for dired-sidebar added.
+* hui-dired-sidebar.el: Added support for dired-sidebar.
2020-07-26 Bob Weiner <r...@gnu.org>
-* hibtypes.el (hsys-org): Move org links/refs to near top of priority list so
things
+* hibtypes.el (hsys-org): Moved org links/refs to near top of priority list so
things
like URLs embeded within Org links are handled by Org, not Hyperbole.
(markdown-follow-inline-link-p): Fixed to defer in-file links
with
point on the link title to the `pathname' ibtype since
diff --git a/hyperbole.el b/hyperbole.el
index bfbe6a1..8498706 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -594,10 +594,12 @@ If FLAG is nil then text is shown, while if FLAG is t the
text is hidden."
(defun outline-invisible-in-p (beg end)
"Return t if there is an invisible character between BEG and END, else
nil."
(catch 'result
- (delq nil (mapcar (lambda (o)
- (if (eq 'outline (overlay-get o 'invisible))
- (throw 'result t)))
- (overlays-in beg end))))))
+ (let ((p beg))
+ (while (< p end)
+ (when (eq (get-char-property p 'invisible) 'outline)
+ (throw 'result t))
+ (setq p (1+ p))))
+ nil)))
;;; ************************************************************************
;;; Message System Support Configuration
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 3cf210b..36874b4 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -16,7 +16,7 @@
;;; Other required Lisp Libraries
;;; ************************************************************************
-(eval-and-compile (mapc #'require '(delsel hsettings hmail kfile kvspec
kcell)))
+(eval-and-compile (mapc #'require '(delsel hsettings hmail kfile kvspec kcell
outline)))
;;; ************************************************************************
;;; Public variables
@@ -86,6 +86,7 @@ It provides the following keys:
(mapc #'make-local-variable
'(kotl-previous-mode indent-line-function indent-region-function
outline-isearch-open-invisible-function
+ outline-regexp
line-move-ignore-invisible minor-mode-alist
selective-display-ellipses
paragraph-separate paragraph-start))
@@ -102,7 +103,8 @@ It provides the following keys:
minor-mode-alist)
;; Remove indication that buffer is narrowed.
mode-line-format (copy-sequence mode-line-format)
- mode-line-format (set:remove "%n" mode-line-format)))
+ mode-line-format (set:remove "%n" mode-line-format)
+ outline-regexp (concat " *[0-9][0-9a-z.]*"
kview:default-label-separator)))
;;
(if (fboundp 'add-to-invisibility-spec)
(add-to-invisibility-spec '(outline . t)))
