From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 26 Dec 2019 07:35:01 +0000 (+0100)
Subject: set disassemble buffer in read only
X-Git-Tag: emacs-28.0.90~2727^2~874
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92e285fdf0821d8a01db598c4e2ac7e2e0fbb3cf;p=emacs.git

set disassemble buffer in read only
---

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index c23dbe1e068..82c8de6e133 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -103,6 +103,7 @@ redefine OBJECT if it is a symbol."
               (when (re-search-forward "^.*<.*>:" nil t 2)
                 (delete-region (match-beginning 0) (point-max)))
               (asm-mode)
+              (setq buffer-read-only t)
               (cl-return-from disassemble-internal))
 	  (error "Can't disassemble #<subr %s>" name)))
     (if (eq (car-safe obj) 'macro)	;Handle macros.