Mercurial > emacs
comparison lisp/ielm.el @ 21781:6e9ef4991da8
(ielm-eval-input): Use variables *, **, *** not :, ::, :::.
(inferior-emacs-lisp-mode): Corresponding changes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Apr 1998 01:28:39 +0000 |
| parents | f3f9df46d008 |
| children | 444b6677cc4e |
comparison
equal
deleted
inserted
replaced
| 21780:5dc3fe7cd300 | 21781:6e9ef4991da8 |
|---|---|
| 301 ielm-error-type "IELM Error" | 301 ielm-error-type "IELM Error" |
| 302 ielm-wbuf (current-buffer)) | 302 ielm-wbuf (current-buffer)) |
| 303 (if (ielm-is-whitespace (substring ielm-string ielm-pos)) | 303 (if (ielm-is-whitespace (substring ielm-string ielm-pos)) |
| 304 ;; need this awful let convolution to work around | 304 ;; need this awful let convolution to work around |
| 305 ;; an Emacs bug involving local vbls and let binding | 305 ;; an Emacs bug involving local vbls and let binding |
| 306 (let ((:save :) | 306 (let ((*save *) |
| 307 (::save ::) | 307 (**save **) |
| 308 (:::save :::)) | 308 (***save ***)) |
| 309 (save-excursion | 309 (save-excursion |
| 310 (set-buffer ielm-working-buffer) | 310 (set-buffer ielm-working-buffer) |
| 311 (condition-case err | 311 (condition-case err |
| 312 (let ((: :save) | 312 (let ((* *save) |
| 313 (:: ::save) | 313 (** **save) |
| 314 (::: :::save) | 314 (*** ***save) |
| 315 (ielm-obuf (current-buffer))) | 315 (ielm-obuf (current-buffer))) |
| 316 (setq ielm-result (eval ielm-form)) | 316 (setq ielm-result (eval ielm-form)) |
| 317 (setq ielm-wbuf (current-buffer)) | 317 (setq ielm-wbuf (current-buffer)) |
| 318 ;; The eval may have changed current-buffer; | 318 ;; The eval may have changed current-buffer; |
| 319 ;; need to set it back here to avoid a bug | 319 ;; need to set it back here to avoid a bug |
| 386 prompt (but see variable `ielm-dynamic-multiline-inputs'). | 386 prompt (but see variable `ielm-dynamic-multiline-inputs'). |
| 387 | 387 |
| 388 * \\[comint-dynamic-complete] completes Lisp symbols (or filenames, within strings), | 388 * \\[comint-dynamic-complete] completes Lisp symbols (or filenames, within strings), |
| 389 or indents the line if there is nothing to complete. | 389 or indents the line if there is nothing to complete. |
| 390 | 390 |
| 391 During evaluations, the values of the variables `:', `::', and `:::' | 391 During evaluations, the values of the variables `*', `**', and `***' |
| 392 are the results of the previous, second previous and third previous | 392 are the results of the previous, second previous and third previous |
| 393 evaluations respectively. | 393 evaluations respectively. |
| 394 | 394 |
| 395 The current working buffer may be changed (with a call to | 395 The current working buffer may be changed (with a call to |
| 396 `set-buffer', or with \\[ielm-change-working-buffer]), and its value | 396 `set-buffer', or with \\[ielm-change-working-buffer]), and its value |
| 436 (setq indent-line-function 'ielm-indent-line) | 436 (setq indent-line-function 'ielm-indent-line) |
| 437 (make-local-variable 'fill-paragraph-function) | 437 (make-local-variable 'fill-paragraph-function) |
| 438 (setq fill-paragraph-function 'lisp-fill-paragraph) | 438 (setq fill-paragraph-function 'lisp-fill-paragraph) |
| 439 | 439 |
| 440 ;; Value holders | 440 ;; Value holders |
| 441 (setq : nil) | 441 (setq * nil) |
| 442 (make-local-variable ':) | 442 (make-local-variable '*) |
| 443 (setq :: nil) | 443 (setq ** nil) |
| 444 (make-local-variable '::) | 444 (make-local-variable '**) |
| 445 (setq ::: nil) | 445 (setq *** nil) |
| 446 (make-local-variable ':::) | 446 (make-local-variable '***) |
| 447 | 447 |
| 448 ;; font-lock support | 448 ;; font-lock support |
| 449 (make-local-variable 'font-lock-defaults) | 449 (make-local-variable 'font-lock-defaults) |
| 450 (setq font-lock-defaults | 450 (setq font-lock-defaults |
| 451 '(ielm-font-lock-keywords nil nil ((?: . "w") (?- . "w") (?* . "w")))) | 451 '(ielm-font-lock-keywords nil nil ((?: . "w") (?- . "w") (?* . "w")))) |