Merge branch 'emacs-mode' into lisp
commit
1f570c062a
|
@ -94,6 +94,10 @@
|
||||||
"SYMBOLS:"
|
"SYMBOLS:"
|
||||||
))
|
))
|
||||||
|
|
||||||
|
(defun factor-indent-line ()
|
||||||
|
"Indent current line as Factor code"
|
||||||
|
(indent-line-to (+ (current-indentation) 4)))
|
||||||
|
|
||||||
(defun factor-mode ()
|
(defun factor-mode ()
|
||||||
"A mode for editing programs written in the Factor programming language."
|
"A mode for editing programs written in the Factor programming language."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
@ -107,6 +111,8 @@
|
||||||
(setq font-lock-defaults
|
(setq font-lock-defaults
|
||||||
'(factor-font-lock-keywords nil nil nil nil))
|
'(factor-font-lock-keywords nil nil nil nil))
|
||||||
(set-syntax-table factor-mode-syntax-table)
|
(set-syntax-table factor-mode-syntax-table)
|
||||||
|
(make-local-variable 'indent-line-function)
|
||||||
|
(setq indent-line-function 'factor-indent-line)
|
||||||
(run-hooks 'factor-mode-hook))
|
(run-hooks 'factor-mode-hook))
|
||||||
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.factor\\'" . factor-mode))
|
(add-to-list 'auto-mode-alist '("\\.factor\\'" . factor-mode))
|
||||||
|
|
Loading…
Reference in New Issue