From: Stefan Monnier Date: Wed, 16 Jan 2008 16:17:00 +0000 (+0000) Subject: (rng-nxml-mode-init): Don't overwrite mode-line-process. X-Git-Tag: emacs-pretest-23.0.90~8541 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7972fb159dbe7ea591132e04b17f346f0eb71e1;p=emacs.git (rng-nxml-mode-init): Don't overwrite mode-line-process. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6db94872819..73bfeb84b24 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-01-16 Stefan Monnier + * 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 a854263752d..ffe66d98be8 100644 --- 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)