branch: externals/hyperbole
commit de470d4c14f4e4ca0903fa5a63ed207332d526ef
Author: bw <[email protected]>
Commit: bw <[email protected]>
hyrolo-org-mode - Fix Org 9.7 and up breakage under Emacs 30
---
ChangeLog | 5 +++++
hyrolo.el | 6 +++---
2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index aa71363878..a4ce837222 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2024-06-22 Bob Weiner <[email protected]>
+* hyrolo.el (hyrolo-org-mode): Fix Org mode breakage with Emacs 30 and Org 9.7
+ and up by removing internal variable ref in
+ 'org-fold-core-set-folding-spec-property' call and using 'org-link symbol
+ instead.
+
* hywiki.el (hywiki-active-in-current-buffer-p): Fix to highlight HyWikiWords
in 'kotl-mode' which is a special class buffer.
(Commentary): Update this documentation, focusing on use.
diff --git a/hyrolo.el b/hyrolo.el
index 063adc7dff..ec07afa2cc 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 7-Jun-89 at 22:08:29
-;; Last-Mod: 29-May-24 at 00:57:28 by Bob Weiner
+;; Last-Mod: 22-Jun-24 at 22:19:36 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -3145,8 +3145,8 @@ Any non-nil value returned is a cons of (<entry-name> .
<entry-source>)."
(when (eq org-fold-core-style 'overlays)
(hypb:add-to-invisibility-spec '(org-hide-block . t)))
(if org-link-descriptive
- (org-fold-core-set-folding-spec-property (car
org-link--link-folding-spec) :visible nil)
- (org-fold-core-set-folding-spec-property (car
org-link--link-folding-spec) :visible t)))
+ (org-fold-core-set-folding-spec-property 'org-link :visible nil)
+ (org-fold-core-set-folding-spec-property 'org-link :visible t)))
(setq-local hyrolo-entry-regexp "^\\(\\*+\\)\\([ \t\n\r]+\\)"
hyrolo-hdr-and-entry-regexp (concat hyrolo-hdr-prefix-regexp
hyrolo-entry-regexp)
