ielm.el 19.9 KB
Newer Older
Richard M. Stallman's avatar
Richard M. Stallman committed
1
;;; ielm.el --- interaction mode for Emacs Lisp
Erik Naggum's avatar
Erik Naggum committed
2

3
;; Copyright (C) 1994, 2002, 2003, 2004 Free Software Foundation, Inc.
Richard M. Stallman's avatar
Richard M. Stallman committed
4 5

;; Author: David Smith <maa036@lancaster.ac.uk>
Richard M. Stallman's avatar
Richard M. Stallman committed
6
;; Maintainer: FSF
Richard M. Stallman's avatar
Richard M. Stallman committed
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
;; Created: 25 Feb 1994
;; Keywords: lisp

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
Erik Naggum's avatar
Erik Naggum committed
23 24 25
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
Richard M. Stallman's avatar
Richard M. Stallman committed
26 27 28

;;; Commentary:

29
;; Provides a nice interface to evaluating Emacs Lisp expressions.
Richard M. Stallman's avatar
Richard M. Stallman committed
30 31 32 33 34 35 36 37 38 39 40 41
;; Input is handled by the comint package, and output is passed
;; through the pretty-printer.

;; To start: M-x ielm.  Type C-h m in the *ielm* buffer for more info.

;;; Code:

(require 'comint)
(require 'pp)

;;; User variables

42 43 44 45 46 47 48 49 50
(defgroup ielm nil
  "Interaction mode for Emacs Lisp."
  :group 'lisp)


(defcustom ielm-noisy t
  "*If non-nil, IELM will beep on error."
  :type 'boolean
  :group 'ielm)
Richard M. Stallman's avatar
Richard M. Stallman committed
51

52 53 54 55 56 57 58 59 60 61 62 63
(defcustom ielm-prompt-read-only t
  "If non-nil, the IELM prompt is read only.
Setting this variable does not affect existing IELM runs.

You can give the IELM prompt more highly customized read-only
type properties, by setting this option to nil, and then setting
`ielm-prompt', outside of Custom, to a string with the desired
text properties."
  :type 'boolean
  :group 'ielm
  :version "21.4")

64
(defcustom ielm-prompt "ELISP> "
65 66 67 68 69 70
  "Prompt used in IELM.
Setting the default value does not affect existing IELM runs.
The command `inferior-emacs-lisp-mode' converts this into a
buffer-local variable in IELM buffers.  Do not try to set the
buffer-local value yourself in any way, unless you really know
what you are doing."
71
  :type 'string
72
  :group 'ielm)
Richard M. Stallman's avatar
Richard M. Stallman committed
73

74
(defcustom ielm-dynamic-return t
75 76
  "*Controls whether \\<ielm-map>\\[ielm-return] has intelligent behaviour in IELM.
If non-nil, \\[ielm-return] evaluates input for complete sexps, or inserts a newline
77 78 79
and indents for incomplete sexps.  If nil, always inserts newlines."
  :type 'boolean
  :group 'ielm)
80

81
(defcustom ielm-dynamic-multiline-inputs t
82 83 84 85
  "*Force multiline inputs to start from column zero?
If non-nil, after entering the first line of an incomplete sexp, a newline
will be inserted after the prompt, moving the input to the next line.
This gives more frame width for large indented sexps, and allows functions
86 87 88
such as `edebug-defun' to work with such inputs."
  :type 'boolean
  :group 'ielm)
Richard M. Stallman's avatar
Richard M. Stallman committed
89

90 91
(defcustom ielm-mode-hook nil
  "*Hooks to be run when IELM (`inferior-emacs-lisp-mode') is started."
Dave Love's avatar
Dave Love committed
92
  :options '(turn-on-eldoc-mode)
93 94
  :type 'hook
  :group 'ielm)
Richard M. Stallman's avatar
Richard M. Stallman committed
95

96 97 98 99 100 101 102 103
(defvar * nil
  "Most recent value evaluated in IELM.")

(defvar ** nil
  "Second-most-recent value evaluated in IELM.")

(defvar *** nil
  "Third-most-recent value evaluated in IELM.")
104

Stefan Monnier's avatar
Stefan Monnier committed
105 106 107
(defvar ielm-match-data nil
  "Match data saved at the end of last command.")

108
(defvar *1 nil
109 110 111
  "During IELM evaluation, most recent value evaluated in IELM.
Normally identical to `*'.  However, if the working buffer is an IELM
buffer, distinct from the process buffer, then `*' gives the value in
112
the working buffer, `*1' the value in the process buffer.
113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128
The intended value is only accessible during IELM evaluation.")

(defvar *2 nil
  "During IELM evaluation, second-most-recent value evaluated in IELM.
Normally identical to `**'.  However, if the working buffer is an IELM
buffer, distinct from the process buffer, then `**' gives the value in
the working buffer, `*2' the value in the process buffer.
The intended value is only accessible during IELM evaluation.")

(defvar *3 nil
  "During IELM evaluation, third-most-recent value evaluated in IELM.
Normally identical to `***'.  However, if the working buffer is an IELM
buffer, distinct from the process buffer, then `***' gives the value in
the working buffer, `*3' the value in the process buffer.
The intended value is only accessible during IELM evaluation.")

Richard M. Stallman's avatar
Richard M. Stallman committed
129 130 131
;;; System variables

(defvar ielm-working-buffer nil
132 133
  "Buffer in which IELM sexps will be evaluated.
This variable is buffer-local.")
Richard M. Stallman's avatar
Richard M. Stallman committed
134

135
(defvar ielm-header
136
  "*** Welcome to IELM ***  Type (describe-mode) for help.\n"
137
  "Message to display when IELM is started.")
Richard M. Stallman's avatar
Richard M. Stallman committed
138 139 140 141 142 143 144 145 146 147 148 149

(defvar ielm-map nil)
(if ielm-map nil
  (if (string-match "Lucid" emacs-version)
      ;; Lemacs
      (progn
	(setq ielm-map (make-sparse-keymap))
	(set-keymap-parent ielm-map comint-mode-map))
    ;; FSF
    (setq ielm-map (cons 'keymap comint-mode-map)))
  (define-key ielm-map "\t" 'comint-dynamic-complete)
  (define-key ielm-map "\C-m" 'ielm-return)
150 151 152
  (define-key ielm-map "\C-j" 'ielm-send-input)
  (define-key ielm-map "\e\C-x" 'eval-defun)         ; for consistency with
  (define-key ielm-map "\e\t" 'lisp-complete-symbol) ; lisp-interaction-mode
153
  ;; These bindings are from `lisp-mode-shared-map' -- can you inherit
154
  ;; from more than one keymap??
155
  (define-key ielm-map "\e\C-q" 'indent-sexp)
156 157 158 159 160
  (define-key ielm-map "\177" 'backward-delete-char-untabify)
  ;; Some convenience bindings for setting the working buffer
  (define-key ielm-map "\C-c\C-b" 'ielm-change-working-buffer)
  (define-key ielm-map "\C-c\C-f" 'ielm-display-working-buffer)
  (define-key ielm-map "\C-c\C-v" 'ielm-print-working-buffer))
Richard M. Stallman's avatar
Richard M. Stallman committed
161

162
(defvar ielm-font-lock-keywords
163
  (list
164
   (cons (concat "^" (regexp-quote ielm-prompt)) 'font-lock-keyword-face)
165 166 167
   '("\\(^\\*\\*\\*[^*]+\\*\\*\\*\\)\\(.*$\\)"
     (1 font-lock-comment-face)
     (2 font-lock-constant-face)))
168
  "Additional expressions to highlight in ielm buffers.")
169

Richard M. Stallman's avatar
Richard M. Stallman committed
170 171 172
;;; Completion stuff

(defun ielm-tab nil
173
  "Possibly indent the current line as lisp code."
Richard M. Stallman's avatar
Richard M. Stallman committed
174 175 176 177 178 179
  (interactive)
  (if (or (eq (preceding-char) ?\n)
	  (eq (char-syntax (preceding-char)) ? ))
      (progn
	(ielm-indent-line)
	t)))
180

Richard M. Stallman's avatar
Richard M. Stallman committed
181
(defun ielm-complete-symbol nil
182 183 184
  "Complete the lisp symbol before point."
  ;; A wrapper for lisp-complete symbol that returns non-nil if
  ;; completion has occurred
Richard M. Stallman's avatar
Richard M. Stallman committed
185
  (let* ((btick (buffer-modified-tick))
186
	 (cbuffer (get-buffer "*Completions*"))
Richard M. Stallman's avatar
Richard M. Stallman committed
187 188 189
	 (ctick (and cbuffer (buffer-modified-tick cbuffer))))
    (lisp-complete-symbol)
     ;; completion has occurred if:
190
    (or
Richard M. Stallman's avatar
Richard M. Stallman committed
191
     ;; the buffer has been modified
192
     (not (= btick (buffer-modified-tick)))
Karl Heuer's avatar
Karl Heuer committed
193
     ;; a completions buffer has been modified or created
Richard M. Stallman's avatar
Richard M. Stallman committed
194 195
     (if cbuffer
	 (not (= ctick (buffer-modified-tick cbuffer)))
196
       (get-buffer "*Completions*")))))
Richard M. Stallman's avatar
Richard M. Stallman committed
197 198

(defun ielm-complete-filename nil
199
  "Dynamically complete filename before point, if in a string."
Richard M. Stallman's avatar
Richard M. Stallman committed
200 201
  (if (nth 3 (parse-partial-sexp comint-last-input-start (point)))
      (comint-dynamic-complete-filename)))
202

Richard M. Stallman's avatar
Richard M. Stallman committed
203
(defun ielm-indent-line nil
204
  "Indent the current line as Lisp code if it is not a prompt line."
205
  (when (save-excursion (comint-bol) (bolp))
Richard M. Stallman's avatar
Richard M. Stallman committed
206 207
    (lisp-indent-line)))

208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231
;;; Working buffer manipulation

(defun ielm-print-working-buffer nil
  "Print the current IELM working buffer's name in the echo area."
  (interactive)
  (message "The current working buffer is: %s" (buffer-name ielm-working-buffer)))

(defun ielm-display-working-buffer nil
  "Display the current IELM working buffer.
Don't forget that selecting that buffer will change its value of `point'
to its value of `window-point'!"
  (interactive)
  (display-buffer ielm-working-buffer)
  (ielm-print-working-buffer))

(defun ielm-change-working-buffer (buf)
  "Change the current IELM working buffer to BUF.
This is the buffer in which all sexps entered at the IELM prompt are
evaluated.  You can achieve the same effect with a call to
`set-buffer' at the IELM prompt."
  (interactive "bSet working buffer to: ")
  (setq ielm-working-buffer (or (get-buffer buf) (error "No such buffer")))
  (ielm-print-working-buffer))

Richard M. Stallman's avatar
Richard M. Stallman committed
232 233 234
;;; Other bindings

(defun ielm-return nil
235 236 237 238
  "Newline and indent, or evaluate the sexp before the prompt.
Complete sexps are evaluated; for incomplete sexps inserts a newline
and indents.  If however `ielm-dynamic-return' is nil, this always
simply inserts a newline."
Richard M. Stallman's avatar
Richard M. Stallman committed
239
  (interactive)
240 241
  (if ielm-dynamic-return
      (let ((state
Richard M. Stallman's avatar
Richard M. Stallman committed
242 243 244 245 246 247
	     (save-excursion
	       (end-of-line)
	       (parse-partial-sexp (ielm-pm)
				   (point)))))
	(if (and (< (car state) 1) (not (nth 3 state)))
	    (ielm-send-input)
248 249 250 251 252 253 254
	  (if (and ielm-dynamic-multiline-inputs
		   (save-excursion
		     (beginning-of-line)
		     (looking-at comint-prompt-regexp)))
	      (save-excursion
		(goto-char (ielm-pm))
		(newline 1)))
Richard M. Stallman's avatar
Richard M. Stallman committed
255 256 257
	  (newline-and-indent)))
    (newline)))

258 259
(defvar ielm-input)

Richard M. Stallman's avatar
Richard M. Stallman committed
260
(defun ielm-input-sender (proc input)
261
  ;; Just sets the variable ielm-input, which is in the scope of
262
  ;; `ielm-send-input's call.
Richard M. Stallman's avatar
Richard M. Stallman committed
263 264 265
  (setq ielm-input input))

(defun ielm-send-input nil
266
  "Evaluate the Emacs Lisp expression after the prompt."
Richard M. Stallman's avatar
Richard M. Stallman committed
267 268 269 270 271 272 273 274 275
  (interactive)
  (let ((buf (current-buffer))
	ielm-input)			; set by ielm-input-sender
    (comint-send-input)			; update history, markers etc.
    (ielm-eval-input ielm-input)))

;;; Utility functions

(defun ielm-is-whitespace (string)
276
  "Return non-nil if STRING is all whitespace."
Richard M. Stallman's avatar
Richard M. Stallman committed
277 278 279 280
  (or (string= string "") (string-match "\\`[ \t\n]+\\'" string)))

;;; Evaluation

281 282
(defun ielm-eval-input (ielm-string)
  "Evaluate the Lisp expression IELM-STRING, and pretty-print the result."
Richard M. Stallman's avatar
Richard M. Stallman committed
283
  ;; This is the function that actually `sends' the input to the
284
  ;; `inferior Lisp process'. All comint-send-input does is works out
Richard M. Stallman's avatar
Richard M. Stallman committed
285 286 287 288 289 290 291
  ;; what that input is.  What this function does is evaluates that
  ;; input and produces `output' which gets inserted into the buffer,
  ;; along with a new prompt.  A better way of doing this might have
  ;; been to actually send the output to the `cat' process, and write
  ;; this as in output filter that converted sexps in the output
  ;; stream to their evaluated value.  But that would have involved
  ;; more process coordination than I was happy to deal with.
292 293 294 295 296 297 298 299 300 301 302
  ;;
  ;; NOTE: all temporary variables in this function will be in scope
  ;; during the eval, and so need to have non-clashing names.
  (let (ielm-form			; form to evaluate
	ielm-pos			; End posn of parse in string
	ielm-result			; Result, or error message
	ielm-error-type			; string, nil if no error
	(ielm-output	"")		; result to display
	(ielm-wbuf ielm-working-buffer)	; current buffer after evaluation
	(ielm-pmark (ielm-pm)))
    (if (not (ielm-is-whitespace ielm-string))
Richard M. Stallman's avatar
Richard M. Stallman committed
303 304 305
	(progn
	  (condition-case err
	      (let (rout)
306 307 308
		(setq rout (read-from-string ielm-string))
		(setq ielm-form (car rout))
		(setq ielm-pos (cdr rout)))
309
	    (error (setq ielm-result (error-message-string err))
310 311 312 313 314 315 316 317
		   (setq ielm-error-type "Read error")))
	  (if ielm-error-type nil
	    ;; Make sure working buffer has not been killed
	    (if (not (buffer-name ielm-working-buffer))
		(setq ielm-result "Working buffer has been killed"
		      ielm-error-type "IELM Error"
		      ielm-wbuf (current-buffer))
	      (if (ielm-is-whitespace (substring ielm-string ielm-pos))
318 319 320 321 322 323 324 325 326 327 328
		  ;; To correctly handle the ielm-local variables *,
		  ;; ** and ***, we need a temporary buffer to be
		  ;; current at entry to the inner of the next two let
		  ;; forms.  We need another temporary buffer to exit
		  ;; that same let.  To avoid problems, neither of
		  ;; these buffers should be alive during the
		  ;; evaluation of ielm-form.
		  (let ((*1 *)
			(*2 **)
			(*3 ***)
			ielm-temp-buffer)
Stefan Monnier's avatar
Stefan Monnier committed
329
		    (set-match-data ielm-match-data)
330
		    (save-excursion
331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358
		      (with-temp-buffer
			(condition-case err
			    (unwind-protect
				;; The next let form creates default
				;; bindings for *, ** and ***.  But
				;; these default bindings are
				;; identical to the ielm-local
				;; bindings.  Hence, during the
				;; evaluation of ielm-form, the
				;; ielm-local values are going to be
				;; used in all buffers except for
				;; other ielm buffers, which override
				;; them.  Normally, the variables *1,
				;; *2 and *3 also have default
				;; bindings, which are not overridden.
				(let ((* *1)
				      (** *2)
				      (*** *3))
				  (kill-buffer (current-buffer))
				  (set-buffer ielm-wbuf)
				  (setq ielm-result (eval ielm-form))
				  (setq ielm-wbuf (current-buffer))
				  (setq
				   ielm-temp-buffer
				   (generate-new-buffer " *ielm-temp*"))
				  (set-buffer ielm-temp-buffer))
			      (when ielm-temp-buffer
				(kill-buffer ielm-temp-buffer)))
359
			  (error (setq ielm-result (error-message-string err))
360 361 362
				 (setq ielm-error-type "Eval error"))
			  (quit (setq ielm-result "Quit during evaluation")
				(setq ielm-error-type "Eval error")))))
Stefan Monnier's avatar
Stefan Monnier committed
363
		    (setq ielm-match-data (match-data)))
364 365
		(setq ielm-error-type "IELM error")
		(setq ielm-result "More than one sexp in input"))))
Richard M. Stallman's avatar
Richard M. Stallman committed
366 367

	  ;; If the eval changed the current buffer, mention it here
368 369 370
	  (if (eq ielm-wbuf ielm-working-buffer) nil
	    (message "current buffer is now: %s" ielm-wbuf)
	    (setq ielm-working-buffer ielm-wbuf))
Richard M. Stallman's avatar
Richard M. Stallman committed
371

372 373
	  (goto-char ielm-pmark)
	  (if (not ielm-error-type)
Richard M. Stallman's avatar
Richard M. Stallman committed
374 375 376
	      (condition-case err
		  ;; Self-referential objects cause loops in the printer, so
		  ;; trap quits here. May as well do errors, too
377 378 379 380 381 382
		  (setq ielm-output (concat ielm-output (pp-to-string ielm-result)))
		(error (setq ielm-error-type "IELM Error")
		       (setq ielm-result  "Error during pretty-printing (bug in pp)"))
		(quit  (setq ielm-error-type "IELM Error")
		       (setq ielm-result "Quit during pretty-printing"))))
	  (if ielm-error-type
Richard M. Stallman's avatar
Richard M. Stallman committed
383 384
	      (progn
		(if ielm-noisy (ding))
385 386
		(setq ielm-output (concat ielm-output "*** " ielm-error-type " ***  "))
		(setq ielm-output (concat ielm-output ielm-result)))
387
	    ;; There was no error, so shift the *** values
388 389 390
	    (setq *** **)
	    (setq ** *)
	    (setq * ielm-result))
391 392 393
	  (setq ielm-output (concat ielm-output "\n"))))
    (setq ielm-output (concat ielm-output ielm-prompt))
    (comint-output-filter (ielm-process) ielm-output)))
Richard M. Stallman's avatar
Richard M. Stallman committed
394 395 396 397

;;; Process and marker utilities

(defun ielm-process nil
398
  ;; Return the current buffer's process.
Richard M. Stallman's avatar
Richard M. Stallman committed
399 400 401
  (get-buffer-process (current-buffer)))

(defun ielm-pm nil
402
  ;; Return the process mark of the current buffer.
Richard M. Stallman's avatar
Richard M. Stallman committed
403 404 405
  (process-mark (get-buffer-process (current-buffer))))

(defun ielm-set-pm (pos)
406
  ;; Set the process mark in the current buffer to POS.
Richard M. Stallman's avatar
Richard M. Stallman committed
407 408 409 410
  (set-marker (process-mark (get-buffer-process (current-buffer))) pos))

;;; Major mode

411 412
(put 'inferior-emacs-lisp-mode 'mode-class 'special)

Richard M. Stallman's avatar
Richard M. Stallman committed
413
(defun inferior-emacs-lisp-mode nil
414 415 416
  "Major mode for interactively evaluating Emacs Lisp expressions.
Uses the interface provided by `comint-mode' (which see).

417 418
* \\<ielm-map>\\[ielm-send-input] evaluates the sexp following the prompt.  There must be at most
  one top level sexp per prompt.
Richard M. Stallman's avatar
Richard M. Stallman committed
419

420 421 422 423 424
* \\[ielm-return] inserts a newline and indents, or evaluates a
  complete expression (but see variable `ielm-dynamic-return').
  Inputs longer than one line are moved to the line following the
  prompt (but see variable `ielm-dynamic-multiline-inputs').

425
* \\[comint-dynamic-complete] completes Lisp symbols (or filenames, within strings),
426
  or indents the line if there is nothing to complete.
Richard M. Stallman's avatar
Richard M. Stallman committed
427

428 429 430 431 432 433
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].
Richard M. Stallman's avatar
Richard M. Stallman committed
434

435 436 437 438 439 440
During evaluations, the values of the variables `*', `**', and `***'
are the results of the previous, second previous and third previous
evaluations respectively.  If the working buffer is another IELM
buffer, then the values in the working buffer are used.  The variables
`*1', `*2' and `*3', yield the process buffer values.

441 442
Expressions evaluated by IELM are not subject to `debug-on-quit' or
`debug-on-error'.
Richard M. Stallman's avatar
Richard M. Stallman committed
443

444 445
The behaviour of IELM may be customized with the following variables:
* To stop beeping on error, set `ielm-noisy' to nil.
Richard M. Stallman's avatar
Richard M. Stallman committed
446
* If you don't like the prompt, you can change it by setting `ielm-prompt'.
447 448
* If you do not like that the prompt is (by default) read-only, set
  `ielm-prompt-read-only' to nil.
449
* Set `ielm-dynamic-return' to nil for bindings like `lisp-interaction-mode'.
Richard M. Stallman's avatar
Richard M. Stallman committed
450 451 452
* Entry to this mode runs `comint-mode-hook' and `ielm-mode-hook'
 (in that order).

453
Customized bindings may be defined in `ielm-map', which currently contains:
Richard M. Stallman's avatar
Richard M. Stallman committed
454 455 456 457 458 459 460 461
\\{ielm-map}"
  (interactive)
  (comint-mode)
  (setq comint-prompt-regexp (concat "^" (regexp-quote ielm-prompt)))
  (make-local-variable 'paragraph-start)
  (setq paragraph-start comint-prompt-regexp)
  (setq comint-input-sender 'ielm-input-sender)
  (setq comint-process-echoes nil)
462
  (make-local-variable 'comint-dynamic-complete-functions)
463 464 465 466 467 468 469
  (set (make-local-variable 'ielm-prompt)
       (if ielm-prompt-read-only
	   (propertize ielm-prompt
		       'read-only t
		       'rear-nonsticky t
		       'front-sticky '(read-only))
	 ielm-prompt))
470
  (setq comint-dynamic-complete-functions
Richard M. Stallman's avatar
Richard M. Stallman committed
471
	'(ielm-tab comint-replace-by-expanded-history ielm-complete-filename ielm-complete-symbol))
472
  (setq comint-get-old-input 'ielm-get-old-input)
473 474 475
  (make-local-variable 'comint-completion-addsuffix)
  (setq comint-completion-addsuffix
	(cons (char-to-string directory-sep-char) ""))
Richard M. Stallman's avatar
Richard M. Stallman committed
476 477 478 479 480 481 482 483 484 485

  (setq major-mode 'inferior-emacs-lisp-mode)
  (setq mode-name "IELM")
  (use-local-map ielm-map)
  (set-syntax-table emacs-lisp-mode-syntax-table)

  (make-local-variable 'indent-line-function)
  (make-local-variable 'ielm-working-buffer)
  (setq ielm-working-buffer (current-buffer))
  (setq indent-line-function 'ielm-indent-line)
Karl Heuer's avatar
Karl Heuer committed
486 487
  (make-local-variable 'fill-paragraph-function)
  (setq fill-paragraph-function 'lisp-fill-paragraph)
Richard M. Stallman's avatar
Richard M. Stallman committed
488

489
  ;; Value holders
490
  (make-local-variable '*)
491
  (setq * nil)
492
  (make-local-variable '**)
493
  (setq ** nil)
494
  (make-local-variable '***)
495
  (setq *** nil)
Stefan Monnier's avatar
Stefan Monnier committed
496
  (set (make-local-variable 'ielm-match-data) nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
497

498 499
  ;; font-lock support
  (make-local-variable 'font-lock-defaults)
500
  (setq font-lock-defaults
501
	'(ielm-font-lock-keywords nil nil ((?: . "w") (?- . "w") (?* . "w"))))
502

Richard M. Stallman's avatar
Richard M. Stallman committed
503
  ;; A dummy process to keep comint happy. It will never get any input
504
  (unless (comint-check-proc (current-buffer))
505 506
    ;; Was cat, but on non-Unix platforms that might not exist, so
    ;; use hexl instead, which is part of the Emacs distribution.
507 508 509
    (condition-case nil
	(start-process "ielm" (current-buffer) "hexl")
      (file-error (start-process "ielm" (current-buffer) "cat")))
Richard M. Stallman's avatar
Richard M. Stallman committed
510 511
    (process-kill-without-query (ielm-process))
    (goto-char (point-max))
512

513 514 515 516
    ;; Lisp output can include raw characters that confuse comint's
    ;; carriage control code.
    (set (make-local-variable 'comint-inhibit-carriage-motion) t)

Richard M. Stallman's avatar
Richard M. Stallman committed
517 518 519
    ;; Add a silly header
    (insert ielm-header)
    (ielm-set-pm (point-max))
520 521
    (unless comint-use-prompt-regexp-instead-of-fields
      (add-text-properties
522
       (point-min) (point-max)
523
       '(rear-nonsticky t field output inhibit-line-move-field-capture t)))
Richard M. Stallman's avatar
Richard M. Stallman committed
524 525 526
    (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))
527

Richard M. Stallman's avatar
Richard M. Stallman committed
528 529
  (run-hooks 'ielm-mode-hook))

530 531 532 533 534 535 536 537 538
(defun ielm-get-old-input nil
  ;; Return the previous input surrounding point
  (save-excursion
    (beginning-of-line)
    (if (looking-at comint-prompt-regexp) nil
      (re-search-backward comint-prompt-regexp))
    (comint-skip-prompt)
    (buffer-substring (point) (progn (forward-sexp 1) (point)))))

Richard M. Stallman's avatar
Richard M. Stallman committed
539 540
;;; User command

541 542
;;;###autoload (add-hook 'same-window-buffer-names "*ielm*")

543
;;;###autoload
Richard M. Stallman's avatar
Richard M. Stallman committed
544
(defun ielm nil
545
  "Interactively evaluate Emacs Lisp expressions.
546
Switches to the buffer `*ielm*', or creates it if it does not exist."
Richard M. Stallman's avatar
Richard M. Stallman committed
547
  (interactive)
548 549 550
  (if (comint-check-proc "*ielm*")
      nil
    (save-excursion
Richard M. Stallman's avatar
Richard M. Stallman committed
551 552
      (set-buffer (get-buffer-create "*ielm*"))
      (inferior-emacs-lisp-mode)))
553
  (pop-to-buffer "*ielm*"))
Richard M. Stallman's avatar
Richard M. Stallman committed
554

Richard M. Stallman's avatar
Richard M. Stallman committed
555 556
(provide 'ielm)

Miles Bader's avatar
Miles Bader committed
557
;;; arch-tag: ef60e4c0-9c4f-4bdb-8402-271313329790
558
;;; ielm.el ends here