mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-18 20:40:48 +00:00
org-fold-core--specs: Remove wrong ":alias" alias
* lisp/org-fold-core.el (org-fold-core-get-folding-spec-from-alias): Do not put ":alias" as an actual alias. The code did not account that `assq' returns the whole cons cell, not just value of the alist item.
This commit is contained in:
parent
538ddecb30
commit
0ceb562b33
|
@ -424,7 +424,7 @@ Return nil when there is no matching folding spec."
|
||||||
(unless org-fold-core--spec-symbols
|
(unless org-fold-core--spec-symbols
|
||||||
(dolist (spec (org-fold-core-folding-spec-list))
|
(dolist (spec (org-fold-core-folding-spec-list))
|
||||||
(push (cons spec spec) org-fold-core--spec-symbols)
|
(push (cons spec spec) org-fold-core--spec-symbols)
|
||||||
(dolist (alias (assq :alias (assq spec org-fold-core--specs)))
|
(dolist (alias (cdr (assq :alias (assq spec org-fold-core--specs))))
|
||||||
(push (cons alias spec) org-fold-core--spec-symbols))))
|
(push (cons alias spec) org-fold-core--spec-symbols))))
|
||||||
(alist-get spec-or-alias org-fold-core--spec-symbols)))
|
(alist-get spec-or-alias org-fold-core--spec-symbols)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue