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

Emacs: Fix minor bugs

Browse Source
This commit is contained in:
Milo Davis 2017-09-25 21:09:27 +02:00 committed by Benjamin Canou
parent 290681cb67
commit b562695e52
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
emacs/michelson-mode.el
View File

@ -2,6 +2,7 @@
(require 'cl-lib) (require 'cl-lib)
(require 'deferred) (require 'deferred)
(require 'font-lock)
(defvar michelson-mode-hook nil) (defvar michelson-mode-hook nil)
@ -50,7 +51,7 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
'michelson-face-instruction 'michelson-face-instruction
"Face name for Michelson instructions.") "Face name for Michelson instructions.")
(defface michelson-face-instruction (defface michelson-face-instruction
'((t (:inherit 'font-lock-keyword-face))) '((t (:inherit font-lock-keyword-face)))
"Face for Michelson instructions." "Face for Michelson instructions."
:group 'michelson-faces) :group 'michelson-faces)
@ -58,7 +59,7 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
'michelson-face-type 'michelson-face-type
"Face name for Michelson types.") "Face name for Michelson types.")
(defface michelson-face-type (defface michelson-face-type
'((t (:inherit 'font-lock-type-face))) '((t (:inherit font-lock-type-face)))
"Face for Michelson types." "Face for Michelson types."
:group 'michelson-faces) :group 'michelson-faces)
@ -67,7 +68,7 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
"Face name for Michelson constants.") "Face name for Michelson constants.")
(defface michelson-face-constant (defface michelson-face-constant
'((t (:inherit 'font-lock-constant-face))) '((t (:inherit font-lock-constant-face)))
"Face for Michelson constants." "Face for Michelson constants."
:group 'michelson-faces) :group 'michelson-faces)
@ -75,7 +76,7 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
'michelson-face-instruction 'michelson-face-instruction
"Face name for Michelson instructions.") "Face name for Michelson instructions.")
(defface michelson-face-annotation (defface michelson-face-annotation
'((t (:inherit 'font-lock-string-face))) '((t (:inherit font-lock-string-face)))
"Face for Michelson annotations." "Face for Michelson annotations."
:group 'michelson-faces) :group 'michelson-faces)
@ -83,7 +84,7 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
'michelson-face-comment 'michelson-face-comment
"Face name for Michelson comments.") "Face name for Michelson comments.")
(defface michelson-face-comment (defface michelson-face-comment
'((t (:inherit 'font-lock-comment-face))) '((t (:inherit font-lock-comment-face)))
"Face for Michelson comments." "Face for Michelson comments."
:group 'michelson-faces) :group 'michelson-faces)
@ -92,7 +93,7 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
"Face name for Michelson declarations.") "Face name for Michelson declarations.")
(defface michelson-face-declaration (defface michelson-face-declaration
'((t (:inherit 'font-lock-keyword-face))) '((t (:inherit font-lock-keyword-face)))
"Face for Michelson constants." "Face for Michelson constants."
:group 'michelson-faces) :group 'michelson-faces)