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