Nicolas Goaziou преди 6 години
родител
ревизия
a23a483245
променени са 1 файла, в които са добавени 3 реда и са изтрити 2 реда
  1. 3 2
      lisp/org-element.el

+ 3 - 2
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))))))