From d1141b14c15c46914551387560722269fac19d05 Mon Sep 17 00:00:00 2001 From: Takaaki ISHIKAWA Date: Sun, 12 Mar 2023 23:36:27 -0300 Subject: [PATCH] fix(org): org-flag -> org-fold, add spec argument This implements the fixes described on takaxp/org-tree-slide#54 `org-flag-region` was deprecated on org 9.6, superseded by `org-fold-region`, which takes different `spec` argument. Fix: takaxp/org-tree-slide#54 Ref: https://github.com/emacs-straight/org-mode/blob/5f817f21fcbbe7c122fcbbc0fb5f43f26fef6259/lisp/org-compat.el#L463 --- modules/lang/org/autoload/contrib-present.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/lang/org/autoload/contrib-present.el b/modules/lang/org/autoload/contrib-present.el index 2462037ff..4f72551cf 100644 --- a/modules/lang/org/autoload/contrib-present.el +++ b/modules/lang/org/autoload/contrib-present.el @@ -22,10 +22,10 @@ (save-excursion (goto-char (point-min)) (while (re-search-forward "^[[:space:]]*\\(#\\+\\)\\(\\(?:BEGIN\\|END\\|ATTR\\)[^[:space:]]+\\).*" nil t) - (org-flag-region (match-beginning 1) + (org-fold-region (match-beginning 1) (match-end 0) org-tree-slide-mode - t)))) + 'block)))) ;;;###autoload (defun +org-present-hide-leading-stars-h () @@ -33,10 +33,10 @@ (save-excursion (goto-char (point-min)) (while (re-search-forward "^\\(\\*+\\)" nil t) - (org-flag-region (match-beginning 1) + (org-fold-region (match-beginning 1) (match-end 1) org-tree-slide-mode - t)))) + 'headline)))) ;;;###autoload (defun +org-present-detect-slide-h ()