# HG changeset patch
# User Robert J. Chassell <bob@rattlesnake.com>
# Date 1134597451 0
# Node ID cc04cc5f78a8af5a37a057ffb8f7b00f120cc7a9
# Parent  05d48e1da3ad113ffeacd1415808566d7aff5824
(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 -r 05d48e1da3ad -r cc04cc5f78a8 lisp/textmodes/texinfmt.el
--- a/lisp/textmodes/texinfmt.el	Wed Dec 14 20:58:33 2005 +0000
+++ b/lisp/textmodes/texinfmt.el	Wed Dec 14 21:57:31 2005 +0000
@@ -212,6 +212,8 @@
 
 ;;; 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 @@
     (goto-char (point-min))
     (Info-tagify input-buffer)
     (goto-char (point-min))
-    (message "Done.")))
+    (message "Done."))))
 
 ;;;###autoload
 (defun texi2info (&optional nosplit)