419 |
printed-value))))) |
printed-value))))) |
420 |
|
|
421 |
|
|
422 |
(defun last-sexp-toggle-display () |
(defun last-sexp-toggle-display (&optional arg) |
423 |
"Toggle between abbreviated and unabbreviated printed representations." |
"Toggle between abbreviated and unabbreviated printed representations." |
424 |
(interactive) |
(interactive "P") |
425 |
(let ((value (get-text-property (point) 'printed-value))) |
;; Normally this command won't be called at end of line. |
426 |
(when value |
;; But when the end of the line is also the end of the buffer, |
427 |
(let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |
;; it does get called. For consistency, pretend it was not called. |
428 |
'printed-value) |
(if (eobp) |
429 |
(point))) |
(newline arg) |
430 |
(end (or (next-single-char-property-change (point) 'printed-value) (point))) |
(let ((value (get-text-property (point) 'printed-value))) |
431 |
(standard-output (current-buffer)) |
(when value |
432 |
(point (point))) |
(let ((beg (or (previous-single-property-change (min (point-max) (1+ (point))) |
433 |
(delete-region beg end) |
'printed-value) |
434 |
(insert (nth 1 value)) |
(point))) |
435 |
(last-sexp-setup-props beg (point) |
(end (or (next-single-char-property-change (point) 'printed-value) (point))) |
436 |
(nth 0 value) |
(standard-output (current-buffer)) |
437 |
(nth 2 value) |
(point (point))) |
438 |
(nth 1 value)) |
(delete-region beg end) |
439 |
(goto-char (min (point-max) point)))))) |
(insert (nth 1 value)) |
440 |
|
(last-sexp-setup-props beg (point) |
441 |
|
(nth 0 value) |
442 |
|
(nth 2 value) |
443 |
|
(nth 1 value)) |
444 |
|
(goto-char (min (point-max) point))))))) |
445 |
|
|
446 |
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal) |
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal) |
447 |
"Evaluate sexp before point; print value in minibuffer. |
"Evaluate sexp before point; print value in minibuffer. |
631 |
(unless (eq old-value new-value) |
(unless (eq old-value new-value) |
632 |
(setq debug-on-error new-value)) |
(setq debug-on-error new-value)) |
633 |
value))))) |
value))))) |
634 |
|
|
635 |
|
|
636 |
(defun lisp-comment-indent () |
(defun lisp-comment-indent () |
637 |
(if (looking-at "\\s<\\s<\\s<") |
(if (looking-at "\\s<\\s<\\s<") |