424 |
(interactive) |
(interactive) |
425 |
(let ((value (get-text-property (point) 'printed-value))) |
(let ((value (get-text-property (point) 'printed-value))) |
426 |
(when value |
(when value |
427 |
(let ((beg (or (previous-single-property-change (point) 'printed-value) (point))) |
(let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |
428 |
|
'printed-value) |
429 |
|
(point))) |
430 |
(end (or (next-single-char-property-change (point) 'printed-value) (point))) |
(end (or (next-single-char-property-change (point) 'printed-value) (point))) |
431 |
(standard-output (current-buffer)) |
(standard-output (current-buffer)) |
432 |
(point (point))) |
(point (point))) |
438 |
(nth 1 value)) |
(nth 1 value)) |
439 |
(goto-char (min (point-max) point)))))) |
(goto-char (min (point-max) point)))))) |
440 |
|
|
|
|
|
441 |
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal) |
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal) |
442 |
"Evaluate sexp before point; print value in minibuffer. |
"Evaluate sexp before point; print value in minibuffer. |
443 |
With argument, print output into current buffer." |
With argument, print output into current buffer." |