Mercurial > emacs

changeset 67582:cc04cc5f78a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Robert J. Chassell <bob@rattlesnake.com>
date Wed, 14 Dec 2005 21:57:31 +0000
parents 05d48e1da3ad
children d5237ca935dc
files lisp/textmodes/texinfmt.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)