Mercurial > urweb
comparison src/elisp/urweb-mode.el @ 2181:e46989ea4ca7
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) |