changeset 87792:c689fd3b9cfd

(rng-nxml-mode-init): Don't overwrite mode-line-process.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 16 Jan 2008 16:17:00 +0000
parents 179da0eedc24
children b0683497550c
files lisp/ChangeLog lisp/nxml/rng-nxml.el
diffstat 2 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Jan 16 16:11:09 2008 +0000
+++ b/lisp/ChangeLog	Wed Jan 16 16:17:00 2008 +0000
@@ -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.
--- a/lisp/nxml/rng-nxml.el	Wed Jan 16 16:11:09 2008 +0000
+++ b/lisp/nxml/rng-nxml.el	Wed Jan 16 16:17:00 2008 +0000
@@ -102,8 +102,8 @@
   (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)