diff options
| author | Alex Bennée <alex.bennee@linaro.org> | 2017-05-18 16:30:38 +0100 |
|---|---|---|
| committer | Alex Bennée <alex.bennee@linaro.org> | 2017-05-18 16:30:38 +0100 |
| commit | aa56fff1aeef8633da1da61fb213c91fa5f60c31 (patch) | |
| tree | 78200b5c16de887fc11bdf57b5a9a916894d92c1 | |
| parent | 2e93886ce0904817497540333720c67c577969cd (diff) | |
lava-json-mode: fix mode name now we've split the modes
| -rw-r--r-- | lava-json-mode.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lava-json-mode.el b/lava-json-mode.el index 4bf45a1..55f6647 100644 --- a/lava-json-mode.el +++ b/lava-json-mode.el @@ -87,7 +87,7 @@ bits are correctly tagged.") (make-variable-buffer-local 'lava-mode-default-bundle-stream) ;;; Mode magic -(defvar lava-mode-map +(defvar lava-json-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map json-mode-map) (define-key map (kbd "C-c C-c") 'lava-mode-submit-job) @@ -120,7 +120,7 @@ bits are correctly tagged.") ;; Define the mode ;;###autoload -(define-derived-mode lava-mode json-mode "LAVA mode" +(define-derived-mode lava-json-mode json-mode "LAVA mode" "LAVA mode is a major mode for editing LAVA job descriptions. \\{lava-mode-map}" @@ -131,6 +131,8 @@ bits are correctly tagged.") (set (make-local-variable 'font-lock-fontify-region-function) #'lava-mode-set-syntax-then-fontify))) +(defalias 'lava-mode 'lava-json-mode) + (defun lava-mode--update-device-list (list) "Update the device list" (setq lava-mode-device-list @@ -214,5 +216,5 @@ value if nothing is set." ; (lava-mode-device-running-latest "mustang-cloudimg-hacking-session") ; (lava-mode-device-running-latest '("mustang-cloudimg-hacking-session" "mustang-cloudimg-continue")) -(provide 'lava-mode) -;;; lava-mode.el ends here +(provide 'lava-json-mode) +;;; lava-json-mode.el ends here |