set disassemble buffer in read only

This commit is contained in:
Andrea Corallo 2019-12-26 08:35:01 +01:00
parent fdb31d6a27
commit 92e285fdf0

View file

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