Mercurial > emacs
comparison lisp/nxml/rng-nxml.el @ 87797:3305ad06c630
(rng-nxml-mode-init): Add status after the "degraded" indicator.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 16 Jan 2008 16:23:09 +0000 |
| parents | c689fd3b9cfd |
| children | d88d7b016e11 |
comparison
equal
deleted
inserted
replaced
| 87796:69b6b74891ef | 87797:3305ad06c630 |
|---|---|
| 101 (define-key nxml-mode-map "\C-c\C-n" 'rng-next-error) | 101 (define-key nxml-mode-map "\C-c\C-n" 'rng-next-error) |
| 102 (easy-menu-define rng-nxml-menu nxml-mode-map | 102 (easy-menu-define rng-nxml-menu nxml-mode-map |
| 103 "Menu for nxml-mode used with rng-validate-mode." | 103 "Menu for nxml-mode used with rng-validate-mode." |
| 104 rng-nxml-easy-menu) | 104 rng-nxml-easy-menu) |
| 105 (add-to-list 'mode-line-process | 105 (add-to-list 'mode-line-process |
| 106 '(rng-validate-mode (:eval (rng-compute-mode-line-string)))) | 106 '(rng-validate-mode (:eval (rng-compute-mode-line-string))) |
| 107 'append) | |
| 107 (cond (rng-nxml-auto-validate-flag | 108 (cond (rng-nxml-auto-validate-flag |
| 108 (rng-validate-mode 1) | 109 (rng-validate-mode 1) |
| 109 (add-hook 'nxml-completion-hook 'rng-complete nil t) | 110 (add-hook 'nxml-completion-hook 'rng-complete nil t) |
| 110 (add-hook 'nxml-in-mixed-content-hook 'rng-in-mixed-content-p nil t)) | 111 (add-hook 'nxml-in-mixed-content-hook 'rng-in-mixed-content-p nil t)) |
| 111 (t | 112 (t |