diff options
| author | Andrea Corallo | 2019-12-26 08:35:01 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:38:17 +0100 |
| commit | 92e285fdf0821d8a01db598c4e2ac7e2e0fbb3cf (patch) | |
| tree | 83f6ce4d79916cc021e788fd710d0a6c2448c165 | |
| parent | fdb31d6a2709bff751c2ad240c41b30db1848b44 (diff) | |
| download | emacs-92e285fdf0821d8a01db598c4e2ac7e2e0fbb3cf.tar.gz emacs-92e285fdf0821d8a01db598c4e2ac7e2e0fbb3cf.zip | |
set disassemble buffer in read only
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 103 | (when (re-search-forward "^.*<.*>:" nil t 2) | 103 | (when (re-search-forward "^.*<.*>:" nil t 2) |
| 104 | (delete-region (match-beginning 0) (point-max))) | 104 | (delete-region (match-beginning 0) (point-max))) |
| 105 | (asm-mode) | 105 | (asm-mode) |
| 106 | (setq buffer-read-only t) | ||
| 106 | (cl-return-from disassemble-internal)) | 107 | (cl-return-from disassemble-internal)) |
| 107 | (error "Can't disassemble #<subr %s>" name))) | 108 | (error "Can't disassemble #<subr %s>" name))) |
| 108 | (if (eq (car-safe obj) 'macro) ;Handle macros. | 109 | (if (eq (car-safe obj) 'macro) ;Handle macros. |