Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 2181:e46989ea4ca7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Grandfathered into release: make urweb-mode keep working in Emacs 23
author Adam Chlipala <adam@chlipala.net>
date Sun, 18 Oct 2015 14:38:20 -0400
parents 3ffef52d549c
children
comparison
equal deleted inserted replaced
2180:5940149cd11a 2181:e46989ea4ca7
375 ;;;###autoload (add-to-list 'load-path (file-name-directory load-file-name)) 375 ;;;###autoload (add-to-list 'load-path (file-name-directory load-file-name))
376 ;;;###autoload 376 ;;;###autoload
377 (add-to-list 'auto-mode-alist '("\\.urs?\\'" . urweb-mode)) 377 (add-to-list 'auto-mode-alist '("\\.urs?\\'" . urweb-mode))
378 378
379 ;;;###autoload 379 ;;;###autoload
380 (define-derived-mode urweb-mode prog-mode "Ur/Web" 380 (defalias 'urweb-mode-derived-from
381 (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))
382
383 ;;;###autoload
384 (define-derived-mode urweb-mode urweb-mode-derived-from "Ur/Web"
381 "\\<urweb-mode-map>Major mode for editing Ur/Web code. 385 "\\<urweb-mode-map>Major mode for editing Ur/Web code.
382 This mode runs `urweb-mode-hook' just before exiting. 386 This mode runs `urweb-mode-hook' just before exiting.
383 \\{urweb-mode-map}" 387 \\{urweb-mode-map}"
384 (set (make-local-variable 'font-lock-defaults) urweb-font-lock-defaults) 388 (set (make-local-variable 'font-lock-defaults) urweb-font-lock-defaults)
385 (set (make-local-variable 'font-lock-multiline) 'undecided) 389 (set (make-local-variable 'font-lock-multiline) 'undecided)