Commit 76364803 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(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.
parent 82f1aca9
2004-04-25 Juanma Barranquero <lektu@terra.es>
* 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 <harder@ifa.au.dk> 2004-04-25 Jesper Harder <harder@ifa.au.dk>
* info.el (info-apropos): Reset Info-complete-cache. * info.el (info-apropos): Reset Info-complete-cache.
......
...@@ -429,8 +429,8 @@ The current working buffer may be changed (with a call to ...@@ -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 `set-buffer', or with \\[ielm-change-working-buffer]), and its value
is preserved between successive evaluations. In this way, expressions is preserved between successive evaluations. In this way, expressions
may be evaluated in a different buffer than the *ielm* buffer. may be evaluated in a different buffer than the *ielm* buffer.
Display the name of the working buffer with \\[ielm-print-working-buffer], By default, its name is shown on the mode line; you can always display
or the buffer itself with \\[ielm-display-working-buffer]. it with \\[ielm-print-working-buffer], or the buffer itself with \\[ielm-display-working-buffer].
During evaluations, the values of the variables `*', `**', and `***' During evaluations, the values of the variables `*', `**', and `***'
are the results of the previous, second previous and third previous 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: ...@@ -476,6 +476,7 @@ Customized bindings may be defined in `ielm-map', which currently contains:
(setq major-mode 'inferior-emacs-lisp-mode) (setq major-mode 'inferior-emacs-lisp-mode)
(setq mode-name "IELM") (setq mode-name "IELM")
(setq mode-line-process '(":%s on " (:eval (buffer-name ielm-working-buffer))))
(use-local-map ielm-map) (use-local-map ielm-map)
(set-syntax-table emacs-lisp-mode-syntax-table) (set-syntax-table emacs-lisp-mode-syntax-table)
...@@ -518,9 +519,10 @@ Customized bindings may be defined in `ielm-map', which currently contains: ...@@ -518,9 +519,10 @@ Customized bindings may be defined in `ielm-map', which currently contains:
(insert ielm-header) (insert ielm-header)
(ielm-set-pm (point-max)) (ielm-set-pm (point-max))
(unless comint-use-prompt-regexp-instead-of-fields (unless comint-use-prompt-regexp-instead-of-fields
(add-text-properties (let ((inhibit-read-only t))
(point-min) (point-max) (add-text-properties
'(rear-nonsticky t field output inhibit-line-move-field-capture t))) (point-min) (point-max)
'(rear-nonsticky t field output inhibit-line-move-field-capture t))))
(comint-output-filter (ielm-process) ielm-prompt) (comint-output-filter (ielm-process) ielm-prompt)
(set-marker comint-last-input-start (ielm-pm)) (set-marker comint-last-input-start (ielm-pm))
(set-process-filter (get-buffer-process (current-buffer)) 'comint-output-filter)) (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." ...@@ -550,7 +552,8 @@ Switches to the buffer `*ielm*', or creates it if it does not exist."
(save-excursion (save-excursion
(set-buffer (get-buffer-create "*ielm*")) (set-buffer (get-buffer-create "*ielm*"))
(inferior-emacs-lisp-mode))) (inferior-emacs-lisp-mode)))
(pop-to-buffer "*ielm*")) (pop-to-buffer "*ielm*")
(goto-char (point-max)))
(provide 'ielm) (provide 'ielm)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment