ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bypass read-only state in org-entry-put 

* lisp/org.el (org-entry-put): Ignore read-only state of the buffer.

Fixes bug when ID property is not insered when creating ID in an
indirect read-only org-goto buffer. [1]

[1] https://orgmode.org/list/8ffe2da5-e2cb-f44c-0a46-b19873c0bdf2@gmx.de/
This commit is contained in:
Ihor Radchenko 2021-04-28 22:51:53 +08:00 committed by Bastien Guerry
parent 17ef1b39b0
commit 232d9a0600
1 changed files with 57 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -13118,6 +13118,7 @@ decreases scheduled or deadline date by one day."
((not (stringp value)) (error "Properties values should be strings")) ((not (stringp value)) (error "Properties values should be strings"))
((not (org--valid-property-p property)) ((not (org--valid-property-p property))
(user-error "Invalid property name: \"%s\"" property))) (user-error "Invalid property name: \"%s\"" property)))
(org-no-read-only
(org-with-point-at pom (org-with-point-at pom
(if (or (not (featurep 'org-inlinetask)) (org-inlinetask-in-task-p)) (if (or (not (featurep 'org-inlinetask)) (org-inlinetask-in-task-p))
(org-back-to-heading-or-point-min t) (org-back-to-heading-or-point-min t)
@ -13173,7 +13174,7 @@ decreases scheduled or deadline date by one day."
(insert ":" property ":") (insert ":" property ":")
(when value (insert " " value)) (when value (insert " " value))
(org-indent-line))))) (org-indent-line)))))
(run-hook-with-args 'org-property-changed-functions property value))) (run-hook-with-args 'org-property-changed-functions property value))))
(defun org-buffer-property-keys (&optional specials defaults columns) (defun org-buffer-property-keys (&optional specials defaults columns)
"Get all property keys in the current buffer. "Get all property keys in the current buffer.