initial stab at making rust-mode elpa friendly
This commit is contained in:
parent
1f52ddfe9e
commit
88918bbefb
@ -1,8 +1,12 @@
|
||||
;; Wrapper for CodeMirror-style emacs modes. Highlighting is done by
|
||||
;; running a stateful parser (with first-class state object) over the
|
||||
;; buffer, line by line, using the output to add 'face properties, and
|
||||
;; storing the parser state at the end of each line. Indentation is
|
||||
;; done based on the parser state at the start of the line.
|
||||
;;; cm-mode.el --- Wrapper for CodeMirror-style emacs modes
|
||||
|
||||
;; Version: 0.1.0
|
||||
|
||||
;; Highlighting is done by running a stateful parser (with first-class
|
||||
;; state object) over the buffer, line by line, using the output to
|
||||
;; add 'face properties, and storing the parser state at the end of
|
||||
;; each line. Indentation is done based on the parser state at the
|
||||
;; start of the line.
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
@ -163,7 +167,7 @@
|
||||
(cm-schedule-work 0.05)))))
|
||||
|
||||
(defun cm-do-some-work ()
|
||||
(save-excursion
|
||||
(save-excursion
|
||||
(condition-case cnd (cm-do-some-work-inner)
|
||||
(error (print cnd) (error cnd)))))
|
||||
|
||||
@ -174,6 +178,7 @@
|
||||
|
||||
;; Entry function
|
||||
|
||||
;;;###autoload
|
||||
(defun cm-mode (mode)
|
||||
(set (make-local-variable 'cm-cur-mode) mode)
|
||||
(set (make-local-variable 'cm-worklist) (list (copy-marker 1)))
|
||||
@ -184,3 +189,5 @@
|
||||
(cm-schedule-work 0.05))
|
||||
|
||||
(provide 'cm-mode)
|
||||
|
||||
;;; <name>.el ends here
|
||||
|
@ -1,3 +1,8 @@
|
||||
;;; rust-mode.el --- A major emacs mode for editing Rust source code
|
||||
|
||||
;; Version: 0.1.0
|
||||
;; Package-Requires: ((cm-mode "0.1.0"))
|
||||
|
||||
(require 'cm-mode)
|
||||
(require 'cc-mode)
|
||||
|
||||
@ -277,6 +282,7 @@
|
||||
((eq (rust-context-align cx) t) (+ (rust-context-column cx) (if closing -1 0)))
|
||||
(t (+ base (if closing 0 unit)))))))
|
||||
|
||||
;;;###autoload
|
||||
(define-derived-mode rust-mode fundamental-mode "Rust"
|
||||
"Major mode for editing Rust source files."
|
||||
(set-syntax-table rust-syntax-table)
|
||||
@ -293,3 +299,5 @@
|
||||
(define-key rust-mode-map "{" 'rust-electric-brace)
|
||||
|
||||
(provide 'rust-mode)
|
||||
|
||||
;;; rust-mode.el ends here
|
||||
|
Loading…
x
Reference in New Issue
Block a user