comparison lisp/emacs-lisp/lisp-mode.el @ 38578:4dce109d0aa3

(eval-last-sexp-1): Don't search for `...', compare with unabbreviated printed representation instead. (last-sexp-print): Bind print-length and print-level to nil.

38577:6c6ed5ba3813

  (interactive)
  (let ((value (get-text-property (point) 'printed-value)))
    (when value
      (let ((beg (previous-single-property-change (point) 'printed-value))
	    (end (next-single-char-property-change (point) 'printed-value))
	    (standard-output (current-buffer)))
	(delete-region beg end)
	(prin1 value)))))


(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)

							'(&rest args)
							expr
							'args)))))
			   expr))
		     (set-syntax-table stab))))))
      (let ((print-length eval-expression-print-length)
	    (print-level eval-expression-print-level)
	    (beg (point))
	    end)
	(prin1 value)
	(setq end (point))
	(when (and (bufferp standard-output)
		   (or (not (null print-length))
		       (not (null print-level)))
		   (save-excursion
		     (goto-char beg)
		     (search-forward "..." end t)))
	  (let ((map (make-sparse-keymap)))
	    (define-key map "\C-m" 'last-sexp-print)
	    (define-key map [down-mouse-2] 'mouse-set-point)
	    (define-key map [mouse-2] 'last-sexp-print)
	    (add-text-properties

38578:4dce109d0aa3

  (interactive)
  (let ((value (get-text-property (point) 'printed-value)))
    (when value
      (let ((beg (previous-single-property-change (point) 'printed-value))
	    (end (next-single-char-property-change (point) 'printed-value))
	    (standard-output (current-buffer))
	    (print-length nil)
	    (print-level nil))
	(delete-region beg end)
	(prin1 value)))))


(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)

							'(&rest args)
							expr
							'args)))))
			   expr))
		     (set-syntax-table stab))))))
      (let ((unabbreviated (let ((print-length nil) (print-level nil))
			     (prin1-to-string value)))
	    (print-length eval-expression-print-length)
	    (print-level eval-expression-print-level)
	    (beg (point))
	    end)
	(prin1 value)
	(setq end (point))
	(when (and (bufferp standard-output)
		   (or (not (null print-length))
		       (not (null print-level)))
		   (not (string= unabbreviated (buffer-substring beg end))))
	  (let ((map (make-sparse-keymap)))
	    (define-key map "\C-m" 'last-sexp-print)
	    (define-key map [down-mouse-2] 'mouse-set-point)
	    (define-key map [mouse-2] 'last-sexp-print)
	    (add-text-properties