update packages

This commit is contained in:
2025-03-11 21:14:26 +01:00
parent 45d49daef0
commit 14dcaaddde
440 changed files with 13229 additions and 8718 deletions

View File

@@ -1,7 +1,7 @@
(define-package "org-appear" "20220617.2355" "Auto-toggle Org elements"
'((emacs "25.1")
(define-package "org-appear" "20240716.1413" "Auto-toggle Org elements"
'((emacs "29.1")
(org "9.3"))
:commit "60ba267c5da336e75e603f8c7ab3f44e6f4e4dac" :authors
:commit "32ee50f8fdfa449bbc235617549c1bccb503cb09" :authors
'(("Alice Istleyeva" . "awth13@gmail.com"))
:maintainers
'(("Alice Istleyeva" . "awth13@gmail.com"))

View File

@@ -4,10 +4,10 @@
;; org-fragtog Copyright (C) 2020 Benjamin Levy - MIT/X11 License
;; org-appear Copyright (C) 2021 Alice Istleyeva - MIT License
;; Author: Alice Istleyeva <awth13@gmail.com>
;; Version: 0.3.0
;; Version: 0.3.1
;; Description: Toggle Org mode element visibility upon entering and leaving
;; Homepage: https://github.com/awth13/org-appear
;; Package-Requires: ((emacs "25.1") (org "9.3"))
;; Package-Requires: ((emacs "29.1") (org "9.3"))
;; Permission is hereby granted, free of charge, to any person obtaining a copy
;; of this software and associated documentation files (the "Software"), to deal
@@ -272,8 +272,8 @@ Return nil if element is not supported by `org-appear-mode'."
(link-ignore-p (and (eq elem-type 'link)
(or (string-match-p "[Cc]ite"
(org-element-property :type elem))
(eq 'plain
(org-element-property :format elem)))))
(memq (org-element-property :format elem)
'(plain angle)))))
(key-ignore-p (and (eq elem-type 'keyword)
(not (memq (intern (downcase
(org-element-property :key elem)))
@@ -358,7 +358,8 @@ Return nil if element cannot be parsed."
((eq elem-type 'keyword)
(remove-text-properties start end '(invisible org-link)))
((and (featurep 'org-fold)
(eq elem-type 'link))
(eq elem-type 'link)
(eq org-fold-core-style 'text-properties))
(remove-text-properties start
visible-start
(list (org-fold-core--property-symbol-get-create 'org-link) nil))
@@ -405,7 +406,8 @@ When RENEW is non-nil, obtain element at point instead."
((memq elem-type '(keyword latex-fragment latex-environment))
(font-lock-flush start end))
((and (featurep 'org-fold)
(eq elem-type 'link))
(eq elem-type 'link)
(eq org-fold-core-style 'text-properties))
(put-text-property start
visible-start
(org-fold-core--property-symbol-get-create 'org-link)