From 7636480366c003b2d22de4fb71e7b1405a4785d0 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 25 Apr 2004 17:18:00 +0000 Subject: (inferior-emacs-lisp-mode): Display working buffer on the mode line. Bind `inhibit-read-only' to t before modifying properties of text in the buffer. (ielm): Force point to the end of buffer, even when running ielm from inside itself. --- lisp/ChangeLog | 8 ++++++++ lisp/ielm.el | 15 +++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 940b6717de..9b1fd48a34 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-04-25 Juanma Barranquero + + * ielm.el (inferior-emacs-lisp-mode): Display working buffer on the + mode line. Bind `inhibit-read-only' to t before modifying + properties of text in the buffer. + (ielm): Force point to the end of buffer, even when running ielm + from inside itself. + 2004-04-25 Jesper Harder * info.el (info-apropos): Reset Info-complete-cache. diff --git a/lisp/ielm.el b/lisp/ielm.el index 725f793314..beb261f4c8 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -429,8 +429,8 @@ The current working buffer may be changed (with a call to `set-buffer', or with \\[ielm-change-working-buffer]), and its value is preserved between successive evaluations. In this way, expressions may be evaluated in a different buffer than the *ielm* buffer. -Display the name of the working buffer with \\[ielm-print-working-buffer], -or the buffer itself with \\[ielm-display-working-buffer]. +By default, its name is shown on the mode line; you can always display +it with \\[ielm-print-working-buffer], or the buffer itself with \\[ielm-display-working-buffer]. During evaluations, the values of the variables `*', `**', and `***' are the results of the previous, second previous and third previous @@ -476,6 +476,7 @@ Customized bindings may be defined in `ielm-map', which currently contains: (setq major-mode 'inferior-emacs-lisp-mode) (setq mode-name "IELM") + (setq mode-line-process '(":%s on " (:eval (buffer-name ielm-working-buffer)))) (use-local-map ielm-map) (set-syntax-table emacs-lisp-mode-syntax-table) @@ -518,9 +519,10 @@ Customized bindings may be defined in `ielm-map', which currently contains: (insert ielm-header) (ielm-set-pm (point-max)) (unless comint-use-prompt-regexp-instead-of-fields - (add-text-properties - (point-min) (point-max) - '(rear-nonsticky t field output inhibit-line-move-field-capture t))) + (let ((inhibit-read-only t)) + (add-text-properties + (point-min) (point-max) + '(rear-nonsticky t field output inhibit-line-move-field-capture t)))) (comint-output-filter (ielm-process) ielm-prompt) (set-marker comint-last-input-start (ielm-pm)) (set-process-filter (get-buffer-process (current-buffer)) 'comint-output-filter)) @@ -550,7 +552,8 @@ Switches to the buffer `*ielm*', or creates it if it does not exist." (save-excursion (set-buffer (get-buffer-create "*ielm*")) (inferior-emacs-lisp-mode))) - (pop-to-buffer "*ielm*")) + (pop-to-buffer "*ielm*") + (goto-char (point-max))) (provide 'ielm) -- cgit v1.2.3