2008-01-16 Stefan Monnier <monnier@iro.umontreal.ca>
+ * nxml/nxml-mode.el (nxml-mode): Use mode-line-process to indicate
+ the use of degraded mode.
+ (nxml-degrade): Don't change mode-name.
+
* nxml/rng-nxml.el (rng-nxml-mode-init):
Don't overwrite mode-line-process.
(kill-all-local-variables)
(setq major-mode 'nxml-mode)
(setq mode-name "nXML")
+ (set (make-local-variable 'mode-line-process) '((nxml-degraded "/degraded")))
;; We'll determine the fill prefix ourselves
(make-local-variable 'adaptive-fill-mode)
(setq adaptive-fill-mode nil)
(nxml-with-unmodifying-text-property-changes
(nxml-clear-face (point-min) (point-max))
(nxml-set-fontified (point-min) (point-max))
- (nxml-clear-inside (point-min) (point-max)))
- (setq mode-name "nXML/degraded"))))
+ (nxml-clear-inside (point-min) (point-max))))))
;;; Change management