mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 23:02:53 +00:00
Code Releases Activity

Backport commit c3466099c from Emacs

Browse source 
* lisp/org-element.el (org-element--get-node-properties):
Escape literal `+`.
* lisp/org-persist.el (org-persist-load:index):
Replace line-start with string-start when the latter is meant.

Org regexp style fixes
c3466099c5f44c52ec73a1bbbb2b42de6f29ac7f
Mattias Engdegård
Wed Nov 30 13:23:38 2022 +0100
This commit is contained in:
Mattias Engdegård 2022-11-30 13:23:38 +01:00 committed by Kyle Meyer
parent a4d38e3965
commit 7ba099a3fd
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-element.el
View file

@ -1040,7 +1040,7 @@ parse properties for property drawer at point."
(property-value (match-string-no-properties 3)))
(cond
((and (plist-member properties property-name-symbol)
(string-match-p "+$" property-name))
(string-match-p "\\+$" property-name))
(let ((val (plist-get properties property-name-symbol)))
(if (listp val)
(setq properties

3
lisp/org-persist.el
View file

@ -593,7 +593,8 @@ COLLECTION is the plist holding data collection."
(mapc (lambda (collection) (org-persist--add-to-index collection 'hash)) org-persist--index)
(setq org-persist--index nil)
(when (file-exists-p org-persist-directory)
(dolist (file (directory-files org-persist-directory 'absolute "^[^.][^.]"))
(dolist (file (directory-files org-persist-directory 'absolute
"\\`[^.][^.]"))
(if (file-directory-p file)
(delete-directory file t)
(delete-file file))))