summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2019-01-21 21:45:10 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-01-21 21:45:10 +0100
commit5a63156b0165304104dcdc4b16437ec08e81f6d6 (patch)
treed2a36404f1e889f0431905ecfc1feacf0ce11b17
parentfadc83d4fe382436c3234dd2712fafe926cdaeea (diff)
downloadorg-mode-5a63156b0165304104dcdc4b16437ec08e81f6d6.tar.gz
org-element: Parse secondary strings in read-only documents
* lisp/org-element.el (org-element-parse-secondary-string): Parse secondary strings in read-only documents. Reported-by: Michael Brand <michael.ch.brand@gmail.com> <http://lists.gnu.org/r/emacs-orgmode/2019-01/msg00271.html>
-rw-r--r--lisp/org-element.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el
index 8d16aa5..9188b3f 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -4095,8 +4095,9 @@ If STRING is the empty string or nil, return nil."
(ignore-errors
(if (symbolp v) (makunbound v)
(set (make-local-variable (car v)) (cdr v)))))
- (insert string)
- (restore-buffer-modified-p nil)
+ ;; Transferring local variables may put the temporary buffer
+ ;; into a read-only state. Make sure we can insert STRING.
+ (let ((inhibit-read-only t)) (insert string))
(org-element--parse-objects
(point-min) (point-max) nil restriction parent))))))