Mercurial > urweb
annotate src/elisp/urweb-mode-startup.el @ 2142:3288e3c9948b
Fix XML indentation in Emacs mode
The return value of MATCH-STRING is a string. At least on Emacs 25,
the comparisons between string and character with EQUAL could never
succeed, and so the cases for matching braces were never triggered.
GET-TEXT-PROPERTY may return a list rather than an atom (for example,
on long lines with whitespace-mode turned on), and this broke the
heuristic of looking for the tag face in previous text.
author | Julian Squires <julian@cipht.net> |
---|---|
date | Mon, 04 May 2015 14:35:07 -0400 |
parents | 3a1e36b14105 |
children |
rev | line source |
---|---|
adamc@350 | 1 |
adamc@350 | 2 ;;; Generated autoloads from urweb-mode.el |
adamc@350 | 3 (add-to-list 'load-path (file-name-directory load-file-name)) |
adamc@350 | 4 |
adamc@350 | 5 (add-to-list (quote auto-mode-alist) (quote ("\\.ur\\(s\\)?\\'" . urweb-mode))) |
adamc@350 | 6 |
adamc@350 | 7 (autoload (quote urweb-mode) "urweb-mode" "\ |
adamc@350 | 8 \\<urweb-mode-map>Major mode for editing Ur/Web code. |
adamc@350 | 9 This mode runs `urweb-mode-hook' just before exiting. |
adamc@350 | 10 \\{urweb-mode-map} |
adamc@350 | 11 |
adamc@350 | 12 \(fn)" t nil) |
adamc@350 | 13 |
adamc@350 | 14 ;;;*** |
adamc@350 | 15 |
adamc@350 | 16 ;;;### (autoloads nil nil ("urweb-compat.el" "urweb-defs.el" |
adamc@350 | 17 ;;;;;; "urweb-util.el") (18072 34664 948142)) |
adamc@350 | 18 |
adamc@350 | 19 ;;;*** |
adamc@350 | 20 |