# HG changeset patch # User Adam Chlipala # Date 1444909957 14400 # Node ID 3ffef52d549c121b9fb7cd75cf6020b68afb2976 # Parent ce312cad5ecda7469be0e35657dcb2305e84fef0 Make urweb-mode inherit from prog-mode (contributed by Ziv Scully) diff -r ce312cad5ecd -r 3ffef52d549c src/elisp/urweb-mode.el --- 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" "\\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) " *)")