(texinfo-format-region):

    [on behalf of Lennart Borgman <lennart.borgman.073@student.lu.se>]
    Set buffer to read-only except for texinfo-format-region evaluation.

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index d46d2f81fd43d7044522db9c8b6b5b1eeb587260..15a15eb37fb2722b9825df6548b817d1d3016e98 100644 (file)
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -212,6 +212,8 @@ converted to Info is stored in a temporary buffer."
 
 ;;; Find a buffer to use.
     (switch-to-buffer (get-buffer-create texinfo-region-buffer-name))
+    (setq buffer-read-only t)
+    (let ((inhibit-read-only t))
     (erase-buffer)
     ;; Insert the header into the buffer.
     (insert header-text)
@@ -313,7 +315,7 @@ converted to Info is stored in a temporary buffer."
     (goto-char (point-min))
     (Info-tagify input-buffer)
     (goto-char (point-min))
-    (message "Done.")))
+    (message "Done."))))
 
 ;;;###autoload
 (defun texi2info (&optional nosplit)