mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
Merge branch 'bugfix'
This commit is contained in:
commit
ef66660cf4
|
@ -435,31 +435,25 @@ still has an entry since one of its properties (`:title') does.")
|
||||||
"Alist between element types and locations of secondary values.")
|
"Alist between element types and locations of secondary values.")
|
||||||
|
|
||||||
(defconst org-element--pair-round-table
|
(defconst org-element--pair-round-table
|
||||||
(let ((table (make-syntax-table)))
|
(let ((table (make-char-table 'syntax-table '(2))))
|
||||||
(modify-syntax-entry ?\( "()" table)
|
(modify-syntax-entry ?\( "()" table)
|
||||||
(modify-syntax-entry ?\) ")(" table)
|
(modify-syntax-entry ?\) ")(" table)
|
||||||
(dolist (char '(?\{ ?\} ?\[ ?\] ?\< ?\>) table)
|
table)
|
||||||
(modify-syntax-entry char " " table)))
|
"Table used internally to pair only round brackets.")
|
||||||
"Table used internally to pair only round brackets.
|
|
||||||
Other brackets are treated as spaces.")
|
|
||||||
|
|
||||||
(defconst org-element--pair-square-table
|
(defconst org-element--pair-square-table
|
||||||
(let ((table (make-syntax-table)))
|
(let ((table (make-char-table 'syntax-table '(2))))
|
||||||
(modify-syntax-entry ?\[ "(]" table)
|
(modify-syntax-entry ?\[ "(]" table)
|
||||||
(modify-syntax-entry ?\] ")[" table)
|
(modify-syntax-entry ?\] ")[" table)
|
||||||
(dolist (char '(?\{ ?\} ?\( ?\) ?\< ?\>) table)
|
table)
|
||||||
(modify-syntax-entry char " " table)))
|
"Table used internally to pair only square brackets.")
|
||||||
"Table used internally to pair only square brackets.
|
|
||||||
Other brackets are treated as spaces.")
|
|
||||||
|
|
||||||
(defconst org-element--pair-curly-table
|
(defconst org-element--pair-curly-table
|
||||||
(let ((table (make-syntax-table)))
|
(let ((table (make-char-table 'syntax-table '(2))))
|
||||||
(modify-syntax-entry ?\{ "(}" table)
|
(modify-syntax-entry ?\{ "(}" table)
|
||||||
(modify-syntax-entry ?\} "){" table)
|
(modify-syntax-entry ?\} "){" table)
|
||||||
(dolist (char '(?\[ ?\] ?\( ?\) ?\< ?\>) table)
|
table)
|
||||||
(modify-syntax-entry char " " table)))
|
"Table used internally to pair only curly brackets.")
|
||||||
"Table used internally to pair only curly brackets.
|
|
||||||
Other brackets are treated as spaces.")
|
|
||||||
|
|
||||||
(defun org-element--parse-paired-brackets (char)
|
(defun org-element--parse-paired-brackets (char)
|
||||||
"Parse paired brackets at point.
|
"Parse paired brackets at point.
|
||||||
|
|
|
@ -1161,6 +1161,15 @@ Some other text
|
||||||
(org-test-with-temp-text "Text[fn::def]"
|
(org-test-with-temp-text "Text[fn::def]"
|
||||||
(org-element-map
|
(org-element-map
|
||||||
(org-element-parse-buffer) 'footnote-reference 'identity)))
|
(org-element-parse-buffer) 'footnote-reference 'identity)))
|
||||||
|
;; Parse inline references with syntax loaded characters.
|
||||||
|
(should
|
||||||
|
(eq 'footnote-reference
|
||||||
|
(org-test-with-temp-text "Text[fn<point>::(def]"
|
||||||
|
(org-element-type (org-element-context)))))
|
||||||
|
(should
|
||||||
|
(eq 'footnote-reference
|
||||||
|
(org-test-with-temp-text "Text[fn<point>::\"def]"
|
||||||
|
(org-element-type (org-element-context)))))
|
||||||
;; Parse nested footnotes.
|
;; Parse nested footnotes.
|
||||||
(should
|
(should
|
||||||
(= 2
|
(= 2
|
||||||
|
|
Loading…
Reference in a new issue