(rng-nxml-mode-init): Don't overwrite mode-line-process.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6db948728193a083965ab5c4733bf2682c6d4edc..73bfeb84b24245983afbdfb1f07786f67933d2bc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-01-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * nxml/rng-nxml.el (rng-nxml-mode-init):
+       Don't overwrite mode-line-process.
+
        * ibuffer.el (mode): Pass the buffer to format-mode-line.
        (ibuffer-update-mode-name): Remove.
        (ibuffer-redisplay, ibuffer-update, ibuffer-mode): Don't call it.

diff --git a/lisp/nxml/rng-nxml.el b/lisp/nxml/rng-nxml.el
index a854263752dcdca5a780529980159d6f2bdbe7b2..ffe66d98be83082cdd8eb4786df1d93dc2938215 100644 (file)
--- a/lisp/nxml/rng-nxml.el
+++ b/lisp/nxml/rng-nxml.el
@@ -102,8 +102,8 @@ Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil."
   (easy-menu-define rng-nxml-menu nxml-mode-map
     "Menu for nxml-mode used with rng-validate-mode."
     rng-nxml-easy-menu)
-  (setq mode-line-process
-       '(rng-validate-mode (:eval (rng-compute-mode-line-string))))
+  (add-to-list 'mode-line-process
+               '(rng-validate-mode (:eval (rng-compute-mode-line-string))))
   (cond (rng-nxml-auto-validate-flag
         (rng-validate-mode 1)
         (add-hook 'nxml-completion-hook 'rng-complete nil t)