Mercurial > urweb
diff src/elisp/urweb-mode.el @ 2175:3ffef52d549c
Make urweb-mode inherit from prog-mode (contributed by Ziv Scully)
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Thu, 15 Oct 2015 07:52:37 -0400 |
| parents | 3288e3c9948b |
| children | e46989ea4ca7 |
line wrap: on
line diff
--- a/src/elisp/urweb-mode.el Sun Sep 20 17:46:07 2015 -0400 +++ b/src/elisp/urweb-mode.el Thu Oct 15 07:52:37 2015 -0400 @@ -246,7 +246,7 @@ ("\\<\\(signature\\)\\s-+\\(\\sw+\\)" (1 font-lock-keyword-face) (2 (amAttribute font-lock-interface-def-face))) - + (,urweb-keywords-regexp . font-lock-keyword-face) (,urweb-sql-keywords-regexp . font-lock-sql-face) (,urweb-cident-regexp . font-lock-cvariable-face)) @@ -377,7 +377,7 @@ (add-to-list 'auto-mode-alist '("\\.urs?\\'" . urweb-mode)) ;;;###autoload -(define-derived-mode urweb-mode fundamental-mode "Ur/Web" +(define-derived-mode urweb-mode prog-mode "Ur/Web" "\\<urweb-mode-map>Major mode for editing Ur/Web code. This mode runs `urweb-mode-hook' just before exiting. \\{urweb-mode-map}" @@ -409,7 +409,7 @@ (set-syntax-table urweb-mode-syntax-table) (setq local-abbrev-table urweb-mode-abbrev-table) ;; A paragraph is separated by blank lines or ^L only. - + (set (make-local-variable 'indent-line-function) 'urweb-indent-line) (set (make-local-variable 'comment-start) "(* ") (set (make-local-variable 'comment-end) " *)")