balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Emacs: use special-mode-map derivative in output buffer

Browse Source
This commit is contained in:
Milo Davis 2018-01-08 10:48:27 -05:00
parent 2d00e5a2f8
commit 899bc53289
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
emacs/michelson-mode.el
View File

@ -421,6 +421,12 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
(display-buffer-below-selected buffer nil)))) (display-buffer-below-selected buffer nil))))
(window-body-width message-window))) (window-body-width message-window)))
(defvar michelson-output-buffer-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map special-mode-map)
(define-key map "g" nil)
map)
"Keymap for types buffer.")
(defun michelson-write-output-buffer (data &optional do-not-overwrite) (defun michelson-write-output-buffer (data &optional do-not-overwrite)
"Write the given `DATA' to the output buffer. "Write the given `DATA' to the output buffer.
@ -455,6 +461,7 @@ If `DO-NOT-OVERWRITE' is non-nil, the existing contents of the buffer are mainta
'face 'michelson-stack-highlight-face)) 'face 'michelson-stack-highlight-face))
(setq michelson-highlighting (not michelson-highlighting))))) (setq michelson-highlighting (not michelson-highlighting)))))
(insert data)) (insert data))
(use-local-map michelson-output-buffer-map)
(read-only-mode 1) (read-only-mode 1)
(goto-char (point-min)) (goto-char (point-min))
(while (not (eobp)) (while (not (eobp))