ielm working buffer on the modeline

[Juanma Barranquero]

Currently IELM shows "(IELM:run)" on the mode line. I'm proposing
using mode-line-process to show the current working buffer, so it'll
look like "(IELM on test.el)" instead.

Any comments?

                                                           /L/e/k/t/u




Index: ielm.el
===================================================================
RCS file: /cvs/emacs/lisp/ielm.el,v
retrieving revision 1.25
diff -u -r1.25 ielm.el
--- ielm.el     25 Feb 2002 16:07:01 -0000      1.25
+++ ielm.el     27 Feb 2002 09:02:13 -0000
@@ -449,6 +449,7 @@
   (make-local-variable 'indent-line-function)
   (make-local-variable 'ielm-working-buffer)
   (setq ielm-working-buffer (current-buffer))
+  (setq mode-line-process '(" on " (:eval (buffer-name ielm-working-buffer))))
   (setq indent-line-function 'ielm-indent-line)
   (make-local-variable 'fill-paragraph-function)
   (setq fill-paragraph-function 'lisp-fill-paragraph)