From 2cd2e4c5db54eb96b4d0c541863489ad828132df Mon Sep 17 00:00:00 2001 From: "Robert J. Chassell" Date: Wed, 14 Dec 2005 21:57:31 +0000 Subject: [PATCH] (texinfo-format-region): [on behalf of Lennart Borgman ] Set buffer to read-only except for texinfo-format-region evaluation. --- lisp/textmodes/texinfmt.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.5