From mboxrd@z Thu Jan 1 00:00:00 1970 Path: quimby.gnus.org!not-for-mail From: Juanma Barranquero Newsgroups: gmane.emacs.devel Subject: ielm working buffer on the modeline Date: Wed, 27 Feb 2002 10:02:49 +0100 Message-ID: <20020227094926.B653.LEKTU@terra.es> NNTP-Posting-Host: quimby2.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset="US-ASCII" Content-Transfer-Encoding: 7bit X-Trace: quimby2.netfonds.no 1014800847 23243 195.204.10.66 (27 Feb 2002 09:07:27 GMT) X-Complaints-To: usenet@quimby2.netfonds.no NNTP-Posting-Date: 27 Feb 2002 09:07:27 GMT Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby2.netfonds.no with esmtp (Exim 3.12 #1 (Debian)) id 16g03a-00062n-00 for ; Wed, 27 Feb 2002 10:07:26 +0100 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.33 #1 (Debian)) id 16fzzg-0001DV-00; Wed, 27 Feb 2002 04:03:24 -0500 Original-Received: from [62.22.27.141] (helo=mail.peoplecall.com) by fencepost.gnu.org with esmtp (Exim 3.33 #1 (Debian)) id 16fzz8-0001CB-00 for ; Wed, 27 Feb 2002 04:02:51 -0500 Original-Received: from jbarranquero (jbarranquero.ofi.peoplecall.com [62.22.27.143]) by mail.peoplecall.com (8.11.6/8.11.6) with ESMTP id g1R92nw31202 for ; Wed, 27 Feb 2002 10:02:49 +0100 Original-To: emacs-devel@gnu.org X-BkRandomSig-Folder: 3ade7ea7.mb\Emacs\Emacs-Devel\ X-Mailer: Becky! ver. 2.00.07 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.5 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: quimby.gnus.org gmane.emacs.devel:1580 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:1580 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) _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://mail.gnu.org/mailman/listinfo/emacs-devel