branch: elpa/dslide
commit be47f2dcb939779067f8c77c3493162bcf242b83
Author: Psionik K <[email protected]>
Commit: Psionik K <[email protected]>
remove call to org-element-parent
this seems to be inconsistently supported. It does nothing interesting, so
it
makes sense that it isn't supported everywhere
Small bug, but worthy of a release
---
NEWS.org | 4 +++-
dslide.el | 5 +++--
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/NEWS.org b/NEWS.org
index 11422f6898..2fb430bf37 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -11,6 +11,8 @@
#+select_tags: latest
#+export_file_name: RELEASE
+* v0.6.2 Minor Bug Fix :latest:
+💩 ~org-element-parent~ call was removed
* v0.6.1 The Toddling :latest:
Fixing bugs and filling some gaps in new features.
** Added 🎅
@@ -30,7 +32,7 @@ Fixing bugs and filling some gaps in new features.
- kmacro action properly skips over non-matching directions when both forward
and backward elements are present in a slide
- 🚧 kmacro playback of =M-<return>= and =M-<backspace>= and others is now
correct. There are likely more events that don't round trip nicely from
~last-kbd-macro~ through ~key-description~ and back through ~read-kbd-macro~.
*File issues*.
- 🚧 kmacro playback no longer aborts when inputs from file-notify etc occur.
It can be quit with =C-g=. A more comprehensive solution is being developed.
-* v0.6.0 Fighting Spam 💌
+* v0.6.0 Fighting Spam 💌 :latest:
- There is less markup (especially for babel)
- Old actions are easier to use
- New actions (*KMACROS!*) fit a more clear pattern
diff --git a/dslide.el b/dslide.el
index 092a599447..2c927adba0 100644
--- a/dslide.el
+++ b/dslide.el
@@ -4,7 +4,7 @@
;; Copyright (C) 2024 Positron
;;
;; Author: Positron <[email protected]>
-;; Version: 0.6.1
+;; Version: 0.6.2
;; Package-Requires: ((emacs "29.2"))
;; Maintainer: Positron <[email protected]>
;; URL: https://github.com/positron-solutions/dslide
@@ -2689,7 +2689,8 @@ PRED, INFO, FIRST-MATCH, and NO-RECURSION are described in
(defun dslide--section (heading)
"Get the section of a HEADING."
(cl-labels ((section-p (element)
- (if (eq (org-element-property :begin (org-element-parent
element))
+ (if (eq (org-element-property
+ :begin (org-element-property :parent element))
(org-element-property :begin heading))
(throw 'section element)
(throw 'section nil))))
