From: Robert J. Chassell <bob@rattlesnake.com>
Date: Wed, 14 Dec 2005 21:57:31 +0000 (+0000)
Subject: (texinfo-format-region):
X-Git-Tag: emacs-pretest-22.0.90~5273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2cd2e4c5db54eb96b4d0c541863489ad828132df;p=emacs.git

(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 d46d2f81fd4..15a15eb37fb 100644
--- 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)