emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 9ef18956bd: org-element: Allow more objects inside


From: ELPA Syncer
Subject: [elpa] externals/org 9ef18956bd: org-element: Allow more objects inside citations
Date: Wed, 24 Jan 2024 06:58:34 -0500 (EST)

branch: externals/org
commit 9ef18956bddbf90be1a9d7ac545da8283572fcdf
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-element: Allow more objects inside citations
    
    * lisp/org-element.el (org-element-object-restrictions): Allow all but
    citation, citation-reference, line-break, table-cell, link and
    footnote-reference objects inside citations.
    
    Reported-by: M. ‘quintus’ Gülker <post+orgmodeml@guelker.eu>
    Link: https://orgmode.org/list/87tu425pla.fsf@guelker.eu
---
 lisp/org-element.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index ec3974f964..6e36aba9a6 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -412,10 +412,14 @@ Don't modify it, set `org-element-affiliated-keywords' 
instead.")
                             subscript superscript underline verbatim))
         (standard-set
          (remq 'citation-reference (remq 'table-cell org-element-all-objects)))
-        (standard-set-no-line-break (remq 'line-break standard-set)))
+        (standard-set-no-line-break (remq 'line-break standard-set))
+         (standard-set-for-citations (seq-difference
+                                      standard-set-no-line-break
+                                      '( citation citation-reference
+                                         footnote-reference link))))
     `((bold ,@standard-set)
       (citation citation-reference)
-      (citation-reference ,@minimal-set)
+      (citation-reference ,@standard-set-for-citations)
       (footnote-reference ,@standard-set)
       (headline ,@standard-set-no-line-break)
       (inlinetask ,@standard-set-no-line-break)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]