From: Stefan Monnier Date: Wed, 16 Jan 2008 16:17:53 +0000 (+0000) Subject: (nxml-mode): Use mode-line-process to indicate the use of degraded mode. X-Git-Tag: emacs-pretest-23.0.90~8540 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d7d1bb69d0d5d2d1df13947a66be1b17ee120bf;p=emacs.git (nxml-mode): Use mode-line-process to indicate the use of degraded mode. (nxml-degrade): Don't change mode-name. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 73bfeb84b24..d426c72a4b7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2008-01-16 Stefan Monnier + * 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 --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el index aa6ac078400..11fadedd531 100644 --- a/lisp/nxml/nxml-mode.el +++ b/lisp/nxml/nxml-mode.el @@ -510,6 +510,7 @@ Many aspects this mode can be customized using (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 @@ Many aspects this mode can be customized using (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