# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1200500273 0
# Node ID b0683497550c0c5802381768537798db830f0378
# Parent  c689fd3b9cfd33ef8ef7e3371e19d71077c33671
(nxml-mode): Use mode-line-process to indicate the use of degraded mode.
(nxml-degrade): Don't change mode-name.

diff -r c689fd3b9cfd -r b0683497550c lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 16 16:17:00 2008 +0000
+++ b/lisp/ChangeLog	Wed Jan 16 16:17:53 2008 +0000
@@ -1,5 +1,9 @@
 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.
 
diff -r c689fd3b9cfd -r b0683497550c lisp/nxml/nxml-mode.el
--- a/lisp/nxml/nxml-mode.el	Wed Jan 16 16:17:00 2008 +0000
+++ b/lisp/nxml/nxml-mode.el	Wed Jan 16 16:17:53 2008 +0000
@@ -510,6 +510,7 @@
   (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)
@@ -573,8 +574,7 @@
       (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