procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(inferior-emacs-lisp-mode): Display working buffer on the mode line. Bind

Browse source 
`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.
This commit is contained in:
Juanma Barranquero 2004-04-25 17:18:00 +00:00
parent 82f1aca958
commit 7636480366
2 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
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>
* info.el (info-apropos): Reset Info-complete-cache.

15
lisp/ielm.el
View file

@ -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)