From 92e285fdf0821d8a01db598c4e2ac7e2e0fbb3cf Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 26 Dec 2019 08:35:01 +0100
Subject: [PATCH] set disassemble buffer in read only

---
 lisp/emacs-lisp/disass.el | 1 +
 1 file changed, 1 insertion(+)

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.
-- 
2.39.5